}{ $1 }xe) {
$o[$#o]{V} = $2;
} else {
- s{ \n (.*) }{ \n }s;
- $o[$#o]{V} = $1;
+ m{^.*\n} or confess;
+ $_ = $&;
+ $o[$#o]{V} = $';
$o[$#o]{Invented} = 1;
}
} elsif (s{^ (["'])( (?: [^\\'"]
next if $x->{E} eq $y->{E};
next if $x->{E} eq 'sprintf' and $y->{E} eq 'f_';
next if $x->{E} eq 'die' and $y->{E} eq 'confess';
+ next if $x->{E} eq 'die' and $y->{E} eq 'fail';
if ($y->{E} eq '+'
and @ys >= 3
and $ys[0]{E} eq '('