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};
$ENV{SystemRoot} = $SystemRoot if $^O eq 'MSWin32' and defined $SystemRoot;
$ENV{PATH} = $PATH if $^O eq 'cygwin' and defined $PATH;
- system { $^X } $^X, '-T', map("-I$_", @INC), '-e', $code;
+ 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;
}
sub init_threads {