[poe-commits] poe/tests/30_loops/00_base wheel_run.pm,1.2,1.3
Brought to you by:
rcaputo
From: <rc...@us...> - 2005-04-12 01:43:31
|
Update of /cvsroot/poe/poe/tests/30_loops/00_base In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15348/tests/30_loops/00_base Modified Files: wheel_run.pm Log Message: Nick Williams and Merijn Broeren at MSDW did the impossible and managed to make POE::Wheel::Run pass actual tests on ActivePerl. Damn, they're GOOD! This round of patches isn't 100% perfect (there's an issue with the Wheel under POE::Loop::Tk), but I'm confident it'll be CPAN-worthy shortly. Index: wheel_run.pm =================================================================== RCS file: /cvsroot/poe/poe/tests/30_loops/00_base/wheel_run.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** wheel_run.pm 22 Nov 2004 00:13:53 -0000 1.2 --- wheel_run.pm 12 Apr 2005 01:43:22 -0000 1.3 *************** *** 19,25 **** $error = "$^O does not support fork"; } - elsif ($^O eq "MSWin32") { - $error = "$^O does not support fork/exec properly"; - } if ($error) { --- 19,22 ---- *************** *** 152,157 **** my $tty_flush_count = 0; my $program = ! ( "$^X -we '" . '$/ = q(!); select STDERR; $| = 1; select STDOUT; $| = 1; ' . 'my $out = shift; '. --- 149,156 ---- my $tty_flush_count = 0; + my $os_quote = ($^O eq 'MSWin32') ? q(") : q('); + my $program = ! ( "$^X -we $os_quote" . '$/ = q(!); select STDERR; $| = 1; select STDOUT; $| = 1; ' . 'my $out = shift; '. *************** *** 164,168 **** ' } ' . '} ' . ! 'exit 0;\'' ); --- 163,167 ---- ' } ' . '} ' . ! "exit 0; $os_quote" ); |