diff options
| author | George Greer <perl@greerga.m-l.org> | 2010-07-04 13:09:56 -0400 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-07-04 18:32:26 +0100 |
| commit | 08017dae61874ea838912f67e02ec9a1577b9894 (patch) | |
| tree | 8214a1b1709ed3fa81fd159e2b3da5d907ab705e /cpan/Test-Harness | |
| parent | d56452d5901e47a91bfa8f7763f30cda1405c277 (diff) | |
| download | perl-08017dae61874ea838912f67e02ec9a1577b9894.tar.gz | |
Make Test::Harness source_handler.t use the build perl (%PERL_CORE%) on Win32.
Diffstat (limited to 'cpan/Test-Harness')
| -rwxr-xr-x | cpan/Test-Harness/t/source_tests/psql.bat | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/cpan/Test-Harness/t/source_tests/psql.bat b/cpan/Test-Harness/t/source_tests/psql.bat index 29daf614c8..8f43ddd768 100755 --- a/cpan/Test-Harness/t/source_tests/psql.bat +++ b/cpan/Test-Harness/t/source_tests/psql.bat @@ -1,10 +1,12 @@ @rem = '--*-Perl-*-- @echo off +if (%PERL_CORE%)==() set PERL_CORE=perl +if not exist %PERL_CORE% set PERL_CORE=perl if "%OS%" == "Windows_NT" goto WinNT -perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9 +%PERL_CORE% -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9 goto endofperl :WinNT -perl -x -S %0 %* +%PERL_CORE% -x -S %0 %* if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl if %errorlevel% == 9009 echo You do not have Perl in your PATH. if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul |