[EMAIL PROTECTED] wrote:
MMS/macro=("IXE=1")
dies with the message:
Extracting podselect.com (with variable substitutions)
Copy/NoConfirm/Log [.pod]podselect.com [.lib.pod]
%COPY-S-COPIED,
DISK$PROSY_USER:[PROSY.FRANS.PERL-5_8_5.POD]PODSELECT.COM;1 copied
to DISK$PROSY_USER:[PROSY.FRANS.PERL-5_8_5.LIB.POD]PODSELECT.COM;3 (6
blocks)
%DCL-W-ACTIMAGE, error activating image SYS$DISK:[]MINIPERL.EXE
-CLI-E-IMAGEFNF, image file not found
$1$DGA22:[PROSY.FRANS.PERL-5_8_5]MINIPERL.EXE;
%MMS-F-ABORT, For target EXTRA.PODS, CLI returned abort status:
%X100388B2.
Which is logical since a MINIPERL.IXE was build and not a MINIPERL.EXE;
The problem is in extra_pods.com which is created by configure.com (line
6320 etc).
Good catch, Frans. You are correct. I've attached what I think will be
the patch for this, but I haven't tested it yet. If anyone one gets a
chance to test, please post results.
--- configure.com;-0 Sat Jan 8 17:57:01 2005
+++ configure.com Sat Jan 8 17:57:19 2005
@@ -6462,6 +6462,10 @@
$! Any changes made to it directly will be lost. If you need to make any
$! changes, please edit the template in Configure.Com instead.
$! Use FORCE if you've just podified a README.* file on VMS.
+$! p1 - how to invoke miniperl (passed in from descrip.mms)
+$ p1 = F$Edit(p1,"Upcase,Compress,Trim")
+$ If F$Locate("MCR ",p1).eq.0 Then p1 = F$Extract(3,255,p1)
+$ miniperl = "$" + F$Search(F$Parse(p1,".Exe"))
$ if f$search("extra.pods") .eqs. "" .or. P1 .eqs. "FORCE" then -
search README.* "=head"/window=0/output=extra.pods
$ open/read/error=extra_close EXTRA extra.pods
@@ -6484,7 +6488,7 @@
$ if file_rdt .GTS. pod_file_rdt then do_copy := true
$ endif
$ ! 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'});"
+$ if do_copy then miniperl -e "exit 0+$^E unless
File::Copy::rmscopy(q{''file'}, q{''pod_file'});"
$ endif
$ endif
$ goto extra_loop
--- vms/descrip_mms.template;-0 Sat Jan 8 17:57:12 2005
+++ vms/descrip_mms.template Sat Jan 8 17:57:16 2005
@@ -372,7 +372,7 @@
x2p : [.x2p]$(DBG)a2p$(E) [.x2p]s2p.com [.x2p]find2perl.com
@ $(NOOP)
extra.pods : miniperl
- @ @extra_pods.com
+ @ @extra_pods.com "$(MINIPERL_EXE)"
pod0 = [.lib.pod]perl.pod [.lib.pod]perl5004delta.pod
[.lib.pod]perl5005delta.pod [.lib.pod]perl561delta.pod [.lib.pod]perl56delta.pod
pod1 = [.lib.pod]perl570delta.pod [.lib.pod]perl571delta.pod
[.lib.pod]perl572delta.pod [.lib.pod]perl573delta.pod [.lib.pod]perl581delta.pod
