This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix test (see <20100901161607.GB2892@iabyn.com>)
authorAbigail <abigail@abigail.be>
Thu, 2 Sep 2010 09:55:07 +0000 (11:55 +0200)
committerAbigail <abigail@abigail.be>
Thu, 2 Sep 2010 09:55:07 +0000 (11:55 +0200)
t/re/overload.t

index d16aec1..f89069b 100644 (file)
@@ -32,8 +32,7 @@ plan tests => 3;
     my $r = $o =~ /(.*)/g;
     push @realloc, "yyyyyy"; # encourage realloc of SV and PVX
     is $1, $TAG, "scalar context //g against overloaded object";
     my $r = $o =~ /(.*)/g;
     push @realloc, "yyyyyy"; # encourage realloc of SV and PVX
     is $1, $TAG, "scalar context //g against overloaded object";
-
-    local our $TODO = "Bug #77084";
+    pos ($o) = 0;  # Reset pos, as //g in scalar context sets it to non-0.
 
     $o =~ /(.*)/g;
     push @realloc, "zzzzzz"; # encourage realloc of SV and PVX
 
     $o =~ /(.*)/g;
     push @realloc, "zzzzzz"; # encourage realloc of SV and PVX