From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 18 Jan 2006 18:02:17 +0000 (+0000)
Subject: Change 26410 caused a regression, with the RVALUE return value of
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0523e7729c1696cddae5b22a83ca24802e14568e;p=p5sagit%2Fp5-mst-13.2.git

Change 26410 caused a regression, with the RVALUE return value of
method calls now failing if bound to a global match. Add a TODO test.

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

diff --git a/t/op/pat.t b/t/op/pat.t
index ced35e3..2f71f8a 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -6,7 +6,7 @@
 
 $| = 1;
 
-print "1..1195\n";
+print "1..1196\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -3423,5 +3423,16 @@ ok(("foba  ba$s" =~ qr/(foo|BaSS|bar)/i)
        "# assigning to original string should not corrupt match vars");
 }
 
-# last test 1195
+{
+    package wooosh;
+    sub gloople {
+      "!";
+    }
+    package main;
+    
+    my $aeek = bless {}, 'wooosh';
+    eval {$aeek->gloople() =~ /(.)/g;};
+    ok($@ eq "", "# TODO 26410 caused a regression") or print "# $@\n";
+}
 
+# last test 1196