This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Copy RE capture buf on overload as well as TEMP
[perl5.git] / t / re / overload.t
index 46407ae..d16aec1 100644 (file)
@@ -19,19 +19,24 @@ plan tests => 3;
     # Bug #77084 points out a corruption problem when scalar //g is used
     # on overloaded objects.
 
+    my @realloc;
     my $TAG = "foo:bar";
     use overload '""' => sub {$TAG};
 
     my $o = bless [];
     my ($one) = $o =~ /(.*)/g;
+    push @realloc, "xxxxxx"; # encourage realloc of SV and PVX
     is $one, $TAG, "list context //g against overloaded object";
 
-    local our $TODO = "Bug #77084";
 
     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";
+
     $o =~ /(.*)/g;
+    push @realloc, "zzzzzz"; # encourage realloc of SV and PVX
     is $1, $TAG, "void context //g against overloaded object";
 }