diff options
| author | Craig A. Berry <craigberry@mac.com> | 2002-12-09 16:21:54 -0600 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2002-12-10 08:46:05 +0000 |
| commit | 1f74f634f2850c816bd2bea31147ff3335a5a63f (patch) | |
| tree | a7f2c915e8267dbddb86c5bba8cdc6728a9cdcda /configure.com | |
| parent | 96cbc0213e091eb81aea69b00c14233cf658344a (diff) | |
| download | perl-1f74f634f2850c816bd2bea31147ff3335a5a63f.tar.gz | |
VMS build update
Message-ID: <3DF56BE2.9000300@mac.com>
From: "Craig A. Berry" <craigberry@mac.com>
p4raw-id: //depot/perl@18277
Diffstat (limited to 'configure.com')
| -rw-r--r-- | configure.com | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/configure.com b/configure.com index b5337acd60..30dbd10648 100644 --- a/configure.com +++ b/configure.com @@ -6225,7 +6225,7 @@ $ if f$search("extra.pods") .eqs. "" .or. P1 .eqs. "FORCE" then - $ open/read/error=extra_close EXTRA extra.pods $extra_loop: $ read/error=extra_close/END_OF_FILE=extra_close EXTRA file -$ file_type = f$parse(file,,,"TYPE",) - "." +$ file_type = f$edit(f$parse(file,,,"TYPE",),"LOWERCASE") - "." $ if file_type .nes. "VMS" .and. file_type .nes. "vms" $ then $ pod_file = "[.pod]perl''file_type'.pod" @@ -6241,7 +6241,8 @@ $ file_rdt = f$cvtime(f$file_attributes(file,"RDT")) $ pod_file_rdt = f$cvtime(f$file_attributes(pod_file,"RDT")) $ if file_rdt .GTS. pod_file_rdt then do_copy := true $ endif -$ if do_copy then copy/log/noconfirm 'file' 'pod_file' +$ ! wacky method to preserve case on ODS-5 even when parse style is traditional +$ if do_copy then mcr sys$disk:[]miniperl.exe -e "exit 0+$^E unless File::Copy::rmscopy(q{''file'}, q{''pod_file'});" $ endif $ endif $ goto extra_loop |