allow eval-groups in patterns only if they C<use re 'eval';>

p4raw-id: //depot/perl@1334

1 files changed, 6 insertions, 1 deletions

diff --git a/t/op/subst.t b/t/op/subst.t
index 92a848fe80..1323b2d004 100755
--- a/t/op/subst.t
+++ b/t/op/subst.t
@@ -1,6 +1,10 @@
 #!./perl
 
-# $RCSfile: s.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:22 $
+
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib' if -d '../lib';
+}
 
 print "1..70\n";
 
@@ -276,6 +280,7 @@ $_ = <<'EOL';
 EOL
 $^R = 'junk';
 
+use re 'eval';
 $foo = ' $@%#lowercase $@%# lowercase UPPERCASE$@%#UPPERCASE' .
   ' $@%#lowercase$@%#lowercase$@%# lowercase lowercase $@%#lowercase' .
   ' lowercase $@%#MiXeD$@%# ';