diff options
| author | Frédéric Buclin <LpSolit@gmail.com> | 2015-03-16 11:10:41 +0100 |
|---|---|---|
| committer | Frédéric Buclin <LpSolit@gmail.com> | 2015-03-16 11:10:41 +0100 |
| commit | 56d130c40ca3f371c53c92426d8d27def45a24dc (patch) | |
| tree | 3c18b2b6c0866c0fdb0edb9fde7ed43049d43b3a /t/001compile.t | |
| parent | 2ccf81dec1fbe4e215ea47700a4e006420318621 (diff) | |
| download | bugzilla-56d130c40ca3f371c53c92426d8d27def45a24dc.tar.gz bugzilla-56d130c40ca3f371c53c92426d8d27def45a24dc.tar.xz | |
Bug 1137674: Merge t/003safesys.t with t/001compile.t
r=dylan a=glob
Diffstat (limited to 't/001compile.t')
| -rw-r--r-- | t/001compile.t | 6 |
1 files changed, 3 insertions, 3 deletions
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; |