http://www.perlmonks.org?node_id=526642

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

Hi All,

I've recently installed latest x-Cygwin on different PCs and suddenly discovered strange reaction on 'system' function inside Perl/Tk apps. Naturally, console applications running well with this function. Below you can see my snippet code and stuff it prints.

FELIX-XP-~> cat test.pl

#!/usr/bin/perl # Code automatically generated by VPTK_W use strict; use Tk; use Tk::Button; my $mw=MainWindow->new(-title=>'Bug demo'); my $w_Button_001 = $mw -> Button ( -background=>'green4', -foreground=>'Yellow', -text=>'Exit', -command=>sub {exit} ) -> pack() +; my $w_Button_002 = $mw -> Button ( -background, 'Yellow', -foreground, 'Black', -command, sub{system('echo Hello'=>'')}, -text, 'Magic 0' ) -> pack(); my $w_Button_003 = $mw -> Button ( -background, 'Red', -foreground, 'Yellow', -command, sub{system('xterm'=>'')}, -text, 'Magic 1' ) -> pack(); MainLoop;

#===vptk end===< DO NOT CODE ABOVE THIS LINE >=== FELIX-XP-~> test.pl C:\cygwin\bin\perl.exe (3064): *** unable to remap C:\cygwin\bin\cygz.dll to same address as parent(0xE00000) != 0xE10000 9 [main] perl 2168 fork_parent: child 3064 died waiting for dll loading Background Error: panic: MUTEX_LOCK (45) [op.c:354] at /usr/lib/perl5/vendor_perl/5.8/cygwin/Tk.pm line 406. panic: MUTEX_LOCK (45) [op.c:354].



Any help/suggestion will be highly appreciated,
"Keep pouring your ideas"

Edit: g0n - code tags around output

2006-10-07 Unapproved by planetscape once evidence of habitual plagiarism uncovered.