for(`cat \Q$_\E 2>/dev/null`) {
next if exists $exceptions{$_};
next if /rm -rf/; # Could be an example from perlsec, e.g.
- next if /END \{/; # Creating an END block creates SVs, obviously
+ next if /END\s*\{/; # Creating an END block creates SVs, obviously
my $q = s/[\\']/sprintf "\\%02x", ord $&/gore
=~ s/\0/'."\\0".'/grid;
$prog = <<end;
END { unlink "./foo"; }
exit 1;
push @a, \$x;
+ push(@non_v, "#$_"); # not a name='value' line
+ push @v_others, "CONFIG='$v'\n";
+ push(@v_others, $line);
+ push @v_others, "PATCHLEVEL='$v'\n";
+ push @v_others, "SUBVERSION='$v'\n";
+ select(undef,undef,undef,$delay);
unshift @INC, "../lib";
+ unshift(@inc_version_list, grep { -d } $d->[0]."/$archname", $d->[0]);
+ unshift(@INC,"xlib/$Opts{cross}");
end
@exceptions{@exceptions} = ();
}