summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
inline | side by side (from parent 1:
8bb4fde)
They are not portable to Windows.
sub run_perl {
my $code = shift;
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 ($SystemRoot, $PATH) = @ENV{qw<SystemRoot PATH>};
my $ld_name = $Config::Config{ldlibpthname};
my $ldlibpth = $ENV{$ld_name};
-use Test::More tests => 5;
+use Test::More tests => 5 + 1;
use Config;
use File::Temp;
use Config;
use File::Temp;
is $got, $exp, "run_perl preserving $os ENV vars";
}
is $got, $exp, "run_perl preserving $os ENV vars";
}
+
+{
+ local $@;
+ eval {
+ run_perl 'print "hello\n"';
+ };
+ like $@, qr/^Double quotes in evaluated code are not portable/,
+ 'croak on double quotes';
+}