From: Craig A. Berry <craigberry@mac.com>
Date: Tue, 27 Feb 2007 01:41:31 +0000 (+0000)
Subject: On VMS, use the normal executable file extension for the copy of
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=31e425b528289c85eb7eb80e544f17c0415e7405;p=p5sagit%2Fp5-mst-13.2.git

On VMS, use the normal executable file extension for the copy of
Perl used to run the test suite.  Not doing so was confusing
some of the Module::Build tests.

p4raw-id: //depot/perl@30414
---

diff --git a/vms/descrip_mms.template b/vms/descrip_mms.template
index 1ab9eb8..531039f 100644
--- a/vms/descrip_mms.template
+++ b/vms/descrip_mms.template
@@ -1717,9 +1717,8 @@ cleanlis :
 	- If F$Search("*.Map").nes."" Then Delete/NoConfirm/Log *.Map;*
 
 cleantest :
-        - If F$Search("[.t]Perl.").nes."" Then Delete/NoConfirm/Log [.t]Perl.;*
+        - If F$Search("[.t]Perl$(E)").nes."" Then Delete/NoConfirm/Log [.t]Perl$(E);*
         - If F$Search("[.t]VMSPIPE.COM").nes."" Then Delete/NoConfirm/Log [.t]VMSPIPE.COM;*
-        - If F$Search("[.t]Echo.exe").nes."" Then Delete/NoConfirm/Log [.t]Echo.exe;*
 
 tidy : cleanlis
 	- If F$Search("[...]*.Opt;-1").nes."" Then Purge/NoConfirm/Log [...]*.Opt
diff --git a/vms/test.com b/vms/test.com
index 7a3bc63..3c76b1e 100644
--- a/vms/test.com
+++ b/vms/test.com
@@ -59,12 +59,12 @@ $       EndIf
 $   EndIf
 $!
 $!  Pick up a copy of perl to use for the tests
-$   If F$Search("Perl.").nes."" Then Delete/Log/NoConfirm Perl.;*
+$   If F$Search("Perl.").nes."" Then Delete/Log/NoConfirm Perl'exe';*
 $   If PERL_TEST_DRIVER .eqs. "minitest"
 $   Then
-$       Copy/Log/NoConfirm [-]miniperl'exe' []Perl.
+$       Copy/Log/NoConfirm [-]miniperl'exe' []Perl'exe'
 $   Else
-$       Copy/Log/NoConfirm [-]'ndbg'Perl'exe' []Perl.
+$       Copy/Log/NoConfirm [-]'ndbg'Perl'exe' []Perl'exe'
 $   EndIf
 $!
 $!  Pick up a copy of vmspipe.com to use for the tests
@@ -83,9 +83,9 @@ $   Define 'dbg'Perlshr 'PerlShr_filespec'
 $   If F$Mode() .nes. "INTERACTIVE" Then Define/Nolog PERL_SKIP_TTY_TEST 1
 $   If PERL_TEST_DRIVER .eqs. "minitest"
 $   Then
-$       MCR Sys$Disk:[]Perl. TEST. "-minitest" "base/*.t" "comp/*.t" "cmd/*.t" "run/*.t" "io/*.t" "op/*.t" "uni/*.t"
+$       MCR Sys$Disk:[]Perl'exe' TEST. "-minitest" "base/*.t" "comp/*.t" "cmd/*.t" "run/*.t" "io/*.t" "op/*.t" "uni/*.t"
 $   Else
-$       MCR Sys$Disk:[]Perl. "-I[-.lib]" 'PERL_TEST_DRIVER' "''p3'" "''p4'" "''p5'" "''p6'" "''p7'"
+$       MCR Sys$Disk:[]Perl'exe' "-I[-.lib]" 'PERL_TEST_DRIVER' "''p3'" "''p4'" "''p5'" "''p6'" "''p7'"
 $   EndIf
 $   goto wrapup
 $!