Copy RE capture buf on overload as well as TEMP

[perl5.git] / t / re / overload.t

#!./perl

use strict;
use warnings;
no  warnings 'syntax';

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
}

sub is;
sub plan;

require './test.pl';
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";


    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";
}


__END__