}{ $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 '('
}
if ($ye eq 'f_') {
my $fmt = $y->{V};
- die "no percent in _f string\n" unless $fmt =~ m{\%};
+ die "no percent in f_ string\n" unless $fmt =~ m{\%};
next unless $string_changed;
die "f_ old string '-quoted\n" if $x->{Q} ne '"';
my $xs = $x->{V};