use warnings; no warnings 'deprecated';
use strict;
use Test::More tests => 12;
our $t = "abcdefghi";
scalar($t =~ /abcde/g);
our $r = \$t;
$[ = 3;
is_deeply [ scalar pos($t) ], [ 8 ];
is_deeply [ pos($t) ], [ 8 ];
is_deeply [ scalar pos($$r) ], [ 8 ];
is_deeply [ pos($$r) ], [ 8 ];
scalar($t =~ /x/g);
is_deeply [ scalar pos($t) ], [ undef ];
is_deeply [ pos($t) ], [ undef ];
is_deeply [ scalar pos($$r) ], [ undef ];
is_deeply [ pos($$r) ], [ undef ];
is pos($t), undef;
pos($t) = 5;
is 0+pos($t), 5;
is pos($t), 2;
my $posr =\ pos($t);
$$posr = 4;
{
$[ = 0;
is 0+$$posr, 1;
}
1;