Change how exit status is handled so if the given code segfaults, the…

… exit status is 11
Raku · Jul 23, 2016 · 4fc97b7 · 4fc97b7
1 parent 1182968
commit 4fc97b7
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/Perl6IRCBotable.pm b/Perl6IRCBotable.pm
@@ -28,7 +28,6 @@ use Cwd qw(cwd abs_path);
 use Encode qw(encode_utf8 decode_utf8);
 use File::Temp qw(tempfile tempdir);
 use HTTP::Tiny;
-#use IO::Handle;
 use IPC::Open3;
 use JSON::XS;
 use Net::GitHub;
@@ -60,7 +59,7 @@ sub get_output {
   }
   my $s_end = time();
 
-  my $exit_status = $? >> 8;
+  my $exit_status = $? & 127;
 
   $out = do { local $/; <RESULT> } unless defined $out;
   chomp $out if defined $out;