Function 'system' nasty behaviour in Cygwin Perl/Tk

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;
[download]

#===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].
[download]

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.

Comment on Function 'system' nasty behaviour in Cygwin Perl/Tk Select or Download Code
Re: Function 'system' nasty behaviour in Cygwin Perl/Tk by Baramin (Acolyte) on Feb 01, 2006 at 13:24 UTC
Most likely a cygwin problem. You should try the rebaseall utility in cygwin's rebase package. If needed, consider the "-T" option to rebaseall to specify the dlls you'll be using. more info HERE	[reply]
Re: Function 'system' nasty behaviour in Cygwin Perl/Tk by liverpole (Monsignor) on Oct 06, 2006 at 11:40 UTC
Posted here on December 28, 2005: 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; [download] and signed with the name Felix, which jesuashok removed: `Any help/suggestion will be highly appreciated, Felix.` [download] s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/	[reply] [d/l] [select]


Welcome to the Monastery
	PerlMonks

Function 'system' nasty behaviour in Cygwin Perl/Tk

The best material for plates (tableware) is: