In string-like envs, take the position to the beginning of the string

[perl/modules/indirect.git] / t / lib / indirect / Test4.pm

no indirect ":fatal";
my $x;
if ($x) {
my $y = qq{abcdef
        @{[$x
 ->new]}
 };
}
1;