# 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
