Change 26410 caused a regression, with the RVALUE return value of
authorNicholas Clark <nick@ccl4.org>
Wed, 18 Jan 2006 18:02:17 +0000 (18:02 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 18 Jan 2006 18:02:17 +0000 (18:02 +0000)
method calls now failing if bound to a global match. Add a TODO test.

p4raw-id: //depot/perl@26904

t/op/pat.t

index ced35e3..2f71f8a 100755 (executable)
@@ -6,7 +6,7 @@
 
 $| = 1;
 
 
 $| = 1;
 
-print "1..1195\n";
+print "1..1196\n";
 
 BEGIN {
     chdir 't' if -d 't';
 
 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");
 }
 
        "# 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