diff options
| author | Abigail <abigail@abigail.be> | 2010-09-02 11:55:07 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2010-09-02 11:55:07 +0200 |
| commit | f3a0defb95e2da85126a0bd17bf5d67899fff9b3 (patch) | |
| tree | b46c0c86bec96a110d8247fa756acd6b0798e5ef | |
| parent | be54382c6ee2d28448a2bfa85dedcbb6144583ae (diff) | |
| download | perl-f3a0defb95e2da85126a0bd17bf5d67899fff9b3.tar.gz | |
Fix test (see <20100901161607.GB2892@iabyn.com>)
| -rw-r--r-- | t/re/overload.t | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/t/re/overload.t b/t/re/overload.t index d16aec118d..f89069bb9e 100644 --- a/t/re/overload.t +++ b/t/re/overload.t @@ -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"; - - 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 |