sub run_perl {
my $code = shift;
+ if ($code =~ /"/) {
+ die 'Double quotes in evaluated code are not portable';
+ }
+
my ($SystemRoot, $PATH) = @ENV{qw<SystemRoot PATH>};
my $ld_name = $Config::Config{ldlibpthname};
my $ldlibpth = $ENV{$ld_name};
my $perl = $^X;
unless (-e $perl and -x $perl) {
$perl = $Config::Config{perlpath};
+ unless (-e $perl and -x $perl) {
+ return undef;
+ }
}
system { $perl } $perl, '-T', map("-I$_", @INC), '-e', $code;