Really check that sysread(I, $x, 1, -4) dies with "Offset outside string"

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

diff --git a/t/op/regexp_notrie.t b/t/op/regexp_notrie.t
index 28681da..beada13 100644 (file)
--- a/t/op/regexp_notrie.t
+++ b/t/op/regexp_notrie.t
@@ -1,14 +1,14 @@
 #!./perl
 #use re 'debug';
 BEGIN {
-    ${^RE_TRIE_MAXBUFF}=-1;
+    ${^RE_TRIE_MAXBUF}=-1;
     #${^RE_DEBUG_FLAGS}=0;
 }
 
 $qr = 1;
 for $file ('./op/regexp.t', './t/op/regexp.t', ':op:regexp.t') {
     if (-r $file) {
-       do $file;
+       do $file or die $@;
        exit;
     }
 }