From: Mark-Jason Dominus <mjd@plover.com>
Date: Mon, 15 Apr 2002 06:46:02 +0000 (+0000)
Subject: Check to make sure @- and @+ interpolation bug is  fixed
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9aa702eccb32e2eaf7f72fd3b3d0dd4d328a1614;p=p5sagit%2Fp5-mst-13.2.git

Check to make sure @- and @+ interpolation bug is  fixed
Message-ID: <20020415064602.17052.qmail@plover.com>

p4raw-id: //depot/perl@15923
---

diff --git a/t/op/magic.t b/t/op/magic.t
index 139f723..61654aa 100755
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -36,7 +36,7 @@ sub skip {
     return 1;
 }
 
-print "1..44\n";
+print "1..46\n";
 
 $Is_MSWin32 = $^O eq 'MSWin32';
 $Is_NetWare = $^O eq 'NetWare';
@@ -301,3 +301,14 @@ ok $^S == 0;
 ok ${^TAINT} == 0;
 eval { ${^TAINT} = 1 };
 ok ${^TAINT} == 0;
+
+# 5.6.1 had a bug: @+ and @- were not properly interpolated
+# into double-quoted strings
+# 20020414 mjd-perl-patch+@plover.com
+{
+    no warnings 'ambiguous';
+    "I like pie" =~ /(I) (like) (pie)/;
+    ok "@-" eq  "0 0 2 7";
+    ok "@+" eq "10 1 6 10";
+}
+