[svn:parrot] r17820 - trunk/lib/Parrot

[particle]

Author: particle
Date: Wed Mar 28 18:12:34 2007
New Revision: 17820

Modified:
   trunk/lib/Parrot/Test.pm

Log:
#42161: [BUG] Parrot::Test throws "Can't spawn" warning on windows if a system 
call returns a negative value
~ add "no warnings 'exec'" around system call

Modified: trunk/lib/Parrot/Test.pm
==============================================================================
--- trunk/lib/Parrot/Test.pm    (original)
+++ trunk/lib/Parrot/Test.pm    Wed Mar 28 18:12:34 2007
@@ -271,7 +271,13 @@
     }
 
     # Execute all commands
-    system($_ ) for ( @{$command} );
+    # [#42161] [BUG] Parrot::Test throws "Can't spawn" warning on windows
+    # ...if a system call returns a negative value
+    # removed exec warnings to prevent this warning from messing up test 
results
+    {
+        no warnings 'exec';
+        system($_ ) for ( @{$command} );
+    }
 
     if ($chdir) {
         chdir $orig_dir;