diff options
| author | Craig A. Berry <craigberry@mac.com> | 2007-02-27 01:41:31 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2007-02-27 01:41:31 +0000 |
| commit | 31e425b528289c85eb7eb80e544f17c0415e7405 (patch) | |
| tree | c2a1e9c872b07111601e701326ecb89748869735 | |
| parent | 3b57cd4384c4b5a2edd2c729f56fa95b0f14809d (diff) | |
| download | perl-31e425b528289c85eb7eb80e544f17c0415e7405.tar.gz | |
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
| -rw-r--r-- | vms/descrip_mms.template | 3 | ||||
| -rw-r--r-- | vms/test.com | 10 |
2 files changed, 6 insertions, 7 deletions
diff --git a/vms/descrip_mms.template b/vms/descrip_mms.template index 1ab9eb8cd1..531039f627 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 7a3bc63cdd..3c76b1e39f 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 $! |