Code below the thread creation not getting executed in windows perl script

Davewhite has asked for the wisdom of the Perl Monks concerning the following question:

Hi, From a windows perl script, I am invoking a thread which runs the TERATERM macro utility in newly created thread. Problem is that the perl scrpt code below the thread creation is not getting executed. Creating thread as follows using available perl Thread module: my $ttThreadId = threads->create(\&invokeTeraTerm, <func_arg>); The thread code is working fine. But the code below the thread creation line in main file is not getting executed (Not even the print statement). Any suggestion / alternate opinion is welcomed. Thanks in advance Dave

Comment on Code below the thread creation not getting executed in windows perl script

Replies are listed 'Best First'.
Re: Code below the thread creation not getting executed in windows perl script by SuicideJunkie (Vicar) on Jul 23, 2009 at 14:30 UTC
Markup in the Monastery Code tags and formatting will help make your posts clearer. Try stripping the code down to the bare minimum that will still cause the issue, and most of the time the problem will become obvious. And, even when it doesn't, you will have a nice short chunk of code you can post here where the problem should hopefully be obvious to at least one monk in the crowd. Debugging without code is like performing surgery while blindfolded. But I will take a stab in the dark, and guess that perhaps you are `exec`ing the teraterm app, and thus blowing away your perl interpreter?	[reply] [d/l]
Re: Code below the thread creation not getting executed in windows perl script by ramlight (Friar) on Jul 23, 2009 at 17:54 UTC
The first thing to do is make sure that your version of Perl was compiled with thread support. The output from perl -V on my system includes the following lines: `C:\pwe>perl -V Summary of my perl5 (revision 5 version 10 subversion 0) configuration +: Platform: osname=MSWin32, osvers=5.2, archname=MSWin32-x64-multi-thread uname='' config_args='undef' hint=recommended, useposix=true, d_sigaction=undef useithreads=define, usemultiplicity=define useperlio=define, d_sfio=undef, uselargefiles=define,` [download] and also: `Characteristics of this binary (from libperl): Compile-time options: MULTIPLICITY PERL_DONT_CREATE_GVSV PERL_IMPLICIT_CONTEXT PERL_IMPLICIT_SYS PERL_MALLOC_WRAP PL_OP_SLAB_ALLOC USE_64_BIT_I +NT USE_ITHREADS USE_LARGE_FILES USE_PERLIO USE_SITECUSTOMIZE` [download] Once you are satisfied that your Perl supports threads, you might want to compare your code with this snippet from one of my programs (which happily uses quite a few threads) and see if comparing it with your code might help. `foreach my $seq (0..$number-1) { my $doneflag = \$play_done[$seq]; $$doneflag = 0; $play_list[$seq] = threads->create(\&PlayoutThread, $doneflag, $target_list[$seq], $media_type, $portnum, $playouts); # Mark as already done if thread creation failed unless ($play_list[$seq]) { $$doneflag = 2; $play_errors++; } # Count it if thread creation succeeded else { $started++; } }` [download]	[reply] [d/l] [select]
Re: Code below the thread creation not getting executed in windows perl script by mzedeler (Pilgrim) on Jul 23, 2009 at 16:12 UTC
Are you sure that threads work in the environment you are using? Try writing a small test to ensure that its working.	[reply]


more useful options
	PerlMonks