X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2FUTEST;h=1be1a5bbef12495f3ec0541b1dc0a3e3671bedac;hb=17e8697d24fcc59ea13ba874c1951d70876b657d;hp=9c1dfc0d800aa09ed88967373991e059233c181c;hpb=22d4bb9ccb8701e68f9243547d7e3a3c55f70908;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/UTEST b/t/UTEST
index 9c1dfc0..1be1a5b 100755
--- a/t/UTEST
+++ b/t/UTEST
@@ -127,6 +127,9 @@ EOT
 		    $next = $1, $ok = 0, last if /^not ok ([0-9]*)/;
 		    if (/^ok (\d+)(\s*#.*)?$/ && $1 == $next) {
 			$next = $next + 1;
+                    }
+                    elsif (/^Bail out!\s*(.*)/i) { # magic words
+                        die "FAILED--Further testing stopped" . ($1 ? ": $1\n" : ".\n");
 		    }
 		    else {
 			$ok = 0;