Marek Rouchal wrote recently:
!Dear VMS porters,
!
!while perl-5.8.1 is approaching, I have merged the perl core's
!Pod::Parser (modules and test scritpts) with Pod-Parser-1.24
!on CPAN. The result (not-yet-released PodParser-1.25) is
!attached.
! <<PodParser-1.25.tar.gz>>
!Most changes in the recent Perl core were related to VMS.
!Could you please verify that I merged this corretly and the result
!works ok on VMS
!a) standalone (perl Makefile.PL, make test), e.g. on top of perl-5.8.0
! or 5.6.1
With perl 5.6.1 I see this error after having run ("mmk" is the equivalent
command
as "make" is on Unix in my environment):
perl Makefile.PL
mmk
perl "-Iperl_root:[lib]" "-MExtUtils::Install" -e "pm_to_blib({split('
',<STDIN>
)},'[.blib.lib.auto]','')" <.MM_tmp
cp [.lib.pod]select.pm [.blib.lib.pod]select.pm
cp [.lib.pod]parseutils.pm [.blib.lib.pod]parseutils.pm
cp [.lib.pod]plaintext.pm [.blib.lib.pod]plaintext.pm
cp [.lib.pod]checker.pm [.blib.lib.pod]checker.pm
cp [.lib.pod]inputobjects.pm [.blib.lib.pod]inputobjects.pm
cp [.lib.pod]usage.pm [.blib.lib.pod]usage.pm
cp [.lib.pod]parser.pm [.blib.lib.pod]parser.pm
cp [.lib.pod]find.pm [.blib.lib.pod]find.pm
perl "-I[.blib.arch]" "-I[.blib.lib]" "-Iperl_root:[lib.VMS_AXP.5_6_1]"
"-Iperl_
root:[lib]" [.scripts]pod2usage.PL [.scripts]pod2usage
Extracting pod2usage.com (with variable substitutions)
perl "-I[.blib.arch]" "-I[.blib.lib]" "-Iperl_root:[lib.VMS_AXP.5_6_1]"
"-Iperl_
root:[lib]" [.scripts]podchecker.PL [.scripts]podchecker
Extracting podchecker.com (with variable substitutions)
perl "-I[.blib.arch]" "-I[.blib.lib]" "-Iperl_root:[lib.VMS_AXP.5_6_1]"
"-Iperl_
root:[lib]" [.scripts]podselect.PL [.scripts]podselect
Extracting podselect.com (with variable substitutions)
Can't open [.scripts]pod2usage for reading: no such file or directory
at pod2man line 49
%SYSTEM-F-ABORT, abort
Can't open [.scripts]podchecker for reading: no such file or directory
at pod2man line 49
%SYSTEM-F-ABORT, abort
Can't open [.scripts]podselect for reading: no such file or directory
at pod2man line 49
%SYSTEM-F-ABORT, abort
perl "-I[.blib.arch]" "-I[.blib.lib]" "-Iperl_root:[lib.VMS_AXP.5_6_1]"
"-Iperl_
root:[lib]" [.scripts]pod2usage.PL [.scripts]pod2usage
Extracting pod2usage.com (with variable substitutions)
perl "-I[.blib.arch]" "-I[.blib.lib]" "-Iperl_root:[lib.VMS_AXP.5_6_1]"
"-Iperl_
root:[lib]" [.scripts]podchecker.PL [.scripts]podchecker
Extracting podchecker.com (with variable substitutions)
perl "-I[.blib.arch]" "-I[.blib.lib]" "-Iperl_root:[lib.VMS_AXP.5_6_1]"
"-Iperl_
root:[lib]" [.scripts]podselect.PL [.scripts]podselect
Extracting podselect.com (with variable substitutions)
perl "-I[.blib.arch]" "-I[.blib.lib]" "-Iperl_root:[lib.VMS_AXP.5_6_1]"
"-Iperl_
root:[lib]" [.scripts]podchecker.PL [.scripts]podchecker
Extracting podchecker.com (with variable substitutions)
Copy/NoConfirm [.scripts]podchecker [.blib.script]podchecker
%COPY-E-OPENIN, error opening
S1:[PPRYMMER.PODPARSER-1_25.SCRIPTS]PODCHECKER.; a
s input
-RMS-E-FNF, file not found
%MMK-F-ERRUPD, error status %X1067109A occurred when updating target
[.BLIB.SCRI
PT]PODCHECKER
It looks like EXE_FILES may need changing to work
on VMS. I also suspect some possible trouble on Windows (or OS/2)
the following patch cleans up the file handling except for the pod*.com.rno
bug in
MakeMaker as shipped with perl 5.6.1:
--- makefile.pl;1 Wed Aug 27 14:40:20 2003
+++ Makefile.PL Tue Sep 2 16:40:47 2003
@@ -32,7 +32,16 @@
pod2usage
);
sub script($) { File::Spec->catfile ('scripts', @_) }
-my @EXE_FILES = map { script $_ } @SCRIPTS;
+my @EXE_FILES = ();
+if ( $^O eq 'VMS' ) {
+ @EXE_FILES = map { script "$_.com" } @SCRIPTS;
+}
+elsif ( $^O eq 'Win32' ) {
+ @EXE_FILES = map { script "$_.bat" } @SCRIPTS;
+}
+else {
+ @EXE_FILES = map { script $_ } @SCRIPTS;
+}
## The test-script to execute regression tests (note that the
End of possible patch.
Unfortunately I do not know if that patch is correct
for windows. You'd have to check with a windows person on that
count.
With that in place I see the following results for the regression tests:
$ mmk test
$ mmk test
perl "-I[.blib.arch]" "-I[.blib.lib]" "-Iperl_root:[lib]"
"-Iperl_root:[lib.VMS_AXP.5_6_1]" -e "use Test::Harness qw(&runtests $
verbose); $verbose=0; runtests @ARGV;" [.t.pod]*.t
[.t.pod]emptycmd....
ok
[.t.pod]find........
Can't stat /USER/PPRYMMER/lib/pod: no such file or directory
Illegal division by zero at user:[pprymmer.podparser-1_25.t.pod]find.t line 75.
%SYSTEM-F-NOLOGNAM, no logical name match
dubious
Test returned status 444 (wstat 1024, 0x400)
(VMS status is 444)
DIED. FAILED tests 2-4
Failed 3/4 tests, 25.00% okay
[.t.pod]for.........
ok
[.t.pod]headings....
[.t.pod]include.....
ok
[.t.pod]included....
ok
[.t.pod]lref........
ok
[.t.pod]multiline_items.
ok
[.t.pod]nested_items.
ok
[.t.pod]nested_seqs.
ok
[.t.pod]oneline_cmds.
ok
[.t.pod]pod2usage...
ok
[.t.pod]poderrs.....
ok
[.t.pod]podselect...
ok
[.t.pod]special_seqs.
ok
Failed Test Status Wstat Total Fail Failed List of Failed
--------------------------------------------------------------------------------
user:[pprymmer.podparser-1_25.t.po 444 1024 4 3 75.00% 2-4
Failed 1/15 test scripts, 93.33% okay. 3/18 subtests failed, 83.33% okay.
%SYSTEM-F-ABORT, abort
%MMK-F-ERRUPD, error status %X0000002C occurred when updating target TEST_DYNAMIC
I suspect that the problem test has something to
do with File::Find which was broken on VMS in
perl 5.6.1. I'll see if I can test on another version as well.
Peter Prymmer
