Fix bug in compile_parrot.pl's handling of exit codes

13 years ago · 364bb8684a
2 changed files with 1 additions and 1 deletions
--- a/bin/compile_parrots.pl
+++ b/bin/compile_parrots.pl
@ -39,7 +39,7 @@ sub handle_errors {
        printf "Error: child died with signal %d, %s coredump\n",
            ($exit_code & 127),  ($exit_code & 128) ? 'with' : 'without';
    } else {
-        printf "Error: child exited with value %d\n", $? >> 8;
+        printf "Error: child exited with value %d\n", $exit_code >> 8;
    }
 }

--- a/bin/new_cpp_parrot
+++ b/bin/new_cpp_parrot