$next_y->();
next if $x->{E} eq $y->{E};
my $string_changed;
- if ($y->{E} eq '__' or $y->{E} eq '_f') {
+ my $ye = $y->{E};
+ if ($ye eq '__' or $ye eq 'f_') {
$next_y->();
- die "__ on non-string $y->{P}\n" unless Sis_string->($y);
+ die "__ on non-string $y->{P}\n" unless $is_string->($y);
die "__ on was non-string $y->{P}\n" unless $is_string->($x);
if ($y->{Q} ne "'") {
die "var subst in new string\n"
};
$string_changed = $@;
}
- if ($y->{E} eq '__') {
+ if ($ye eq '__') {
$_ = $y->{V};
die "percent $& in __ ' string\n" if m{\%};
die $string_changed if length $string_changed;
next;
}
- if ($y->{E} eq 'f_') {
+ if ($ye eq 'f_') {
my $fmt = $y->{V};
die "no percent in _f string\n" unless $fmt =~ m{\%};
next unless $string_changed;