summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
inline | side by side (from parent 1:
6ca1527)
This may happen if the perl binary has been relocated.
my $perl = $^X;
unless (-e $perl and -x $perl) {
$perl = $Config::Config{perlpath};
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;
}
system { $perl } $perl, '-T', map("-I$_", @INC), '-e', $code;