Tru64, gcc -O3, datasize

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

diff --git a/t/op/pat.t b/t/op/pat.t
index 4ef860c..6a1d602 100755 (executable)
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -6,7 +6,7 @@
 
 $| = 1;
 
-print "1..940\n";
+print "1..941\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -2931,6 +2931,10 @@ print(("a$x" =~ /^a(??{$a})\z/ ? '' : 'not '),
       "ok $test - postponed interpolation of qr// preserves utf8\n");
 ++$test;
 
+print((length(qr/##/x) == 12 ? '' : 'not '),
+      "ok $test - ## in qr// doesn't corrupt memory [perl #17776]\n");
+++$test;
+
 { use re 'eval';
 
 print(("$x$x" =~ /^$x(??{$x})\z/ ? '' : 'not '),