develooper Front page | perl.perl5.porters | Postings from July 2010

Re: Smoke [5.13.2] v5.13.2-131-gf507d6f FAIL(F) MSWin32 Win2000 SP4(x86/1 cpu)

Thread Previous | Thread Next
From:
George Greer
Date:
July 4, 2010 10:12
Subject:
Re: Smoke [5.13.2] v5.13.2-131-gf507d6f FAIL(F) MSWin32 Win2000 SP4(x86/1 cpu)
Message ID:
alpine.LFD.2.00.1007041201500.13656@ein.m-l.org
From 8ed8cbb86a646614a2f538937d1e34784e6509f9 Mon Sep 17 00:00:00 2001
From: George Greer <perl@greerga.m-l.org>
Date: Sun, 4 Jul 2010 13:09:56 -0400
Subject: [PATCH] Make Test::Harness source_handler.t use the build perl (%PERL_CORE%) on Win32.

---
 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 29daf61..8f43ddd 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
-- 
1.7.0.4


Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About