# 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 CohenThread Next