Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Function 'system' nasty behaviour in Cygwin Perl/Tk

by jesuashok (Curate)
on Jan 31, 2006 at 02:34 UTC ( #526642=perlquestion: print w/ replies, xml ) Need Help??
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.

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
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;
    and signed with the name Felix, which jesuashok removed:
    Any help/suggestion will be highly appreciated, Felix.

    s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://526642]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (4)
As of 2014-09-20 08:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (157 votes), past polls