add more positive gofs GPOS tests and fix some bugs too

[p5sagit/p5-mst-13.2.git] / t / op / regexp_qr_embed.t

diff --git a/t/op/regexp_qr_embed.t b/t/op/regexp_qr_embed.t
index bcd5115..d5f0844 100644 (file)
--- a/t/op/regexp_qr_embed.t
+++ b/t/op/regexp_qr_embed.t
@@ -4,7 +4,7 @@ $qr = 1;
 $qr_embed = 1;
 for $file ('./op/regexp.t', './t/op/regexp.t', ':op:regexp.t') {
     if (-r $file) {
-       do $file;
+       do $file or die $@;
        exit;
     }
 }