From 56d130c40ca3f371c53c92426d8d27def45a24dc Mon Sep 17 00:00:00 2001 From: Frédéric Buclin Date: Mon, 16 Mar 2015 11:10:41 +0100 Subject: Bug 1137674: Merge t/003safesys.t with t/001compile.t r=dylan a=glob --- t/001compile.t | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 't/001compile.t') diff --git a/t/001compile.t b/t/001compile.t index 7097ad361..a546e40ad 100644 --- a/t/001compile.t +++ b/t/001compile.t @@ -49,12 +49,12 @@ sub compile_file { $T = "T"; } - my $libs = ''; + my $libs = '-It '; if ($ENV{PERL5LIB}) { - $libs = join " ", map { "-I\"$_\"" } split /$Config{path_sep}/, $ENV{PERL5LIB}; + $libs .= join " ", map { "-I\"$_\"" } split /$Config{path_sep}/, $ENV{PERL5LIB}; } my $perl = qq{"$^X"}; - my $output = `$perl $libs -c$T $file 2>&1`; + my $output = `$perl $libs -c$T -MSupport::Systemexec $file 2>&1`; chomp($output); my $return_val = $?; $output =~ s/^\Q$file\E syntax OK$//ms; -- cgit v1.2.3-24-g4f1b