Improve robustness and detail of subprocess segfault check

raku-community-modules · Aug 14, 2014 · 7865e2d · 7865e2d
1 parent af4e774
commit 7865e2d
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/timeall b/timeall
@@ -454,8 +454,8 @@ sub time_command {
                      . (length $err ? "Error:\n$err\n" : '');
                 return undef;
             }
-            if ($out =~ /Segmentation/) {
-                warn "segfaulted";
+            if ($out =~ /Segmentation/i || $err =~ /Segmentation/i) {
+                warn "Command segfaulted: @$compile";
                 return undef;
             }
 
@@ -467,8 +467,8 @@ sub time_command {
 
         my ($out, $err, $status)  = capture { system @run };
         my $time = time - $start;
-        if ($out =~ /Segmentation/ || $err =~ /Segmentation/) {
-            warn "segfaulted";
+        if ($out =~ /Segmentation/i || $err =~ /Segmentation/i) {
+            warn "Command segfaulted: @run";
             return undef;
         }