[perl #15882] [PATCH] Test.pm glitch

# New Ticket Created by  Jarkko Hietaniemi 
# Please include the string:  [perl #15882]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=15882 >


I thought "exit code 0.01171875" was odd.

diff -ruN parrot/lib/Parrot/Test.pm parrot+cast/lib/Parrot/Test.pm
--- parrot/lib/Parrot/Test.pm	2002-07-29 10:59:28.000000000 +0300
+++ parrot+cast/lib/Parrot/Test.pm	2002-07-31 08:11:50.000000000 +0300
@@ -40,7 +40,7 @@
   }
 
   system "$^X -e \"$redir_string;system q{$command};\"";
-  my $exit_code = $? / 256;
+  my $exit_code = $? >> 8;
   $Builder->diag("'$command' failed with exit code $exit_code") if $exit_code;
 }
 
-- 
$jhi++; # http://www.iki.fi/jhi/
        # There is this special biologist word we use for 'stable'.
        # It is 'dead'. -- Jack Cohen

• [perl #15882] [PATCH] Test.pm glitch by Jarkko Hietaniemi
• Re: [perl #15882] [PATCH] Test.pm glitch by Melvin Smith