Peter, just to be sure: does the patch you propose actually SOLVE the first issue on VMS?
I have some difficulties in figuring out what the second problem is all about, not having access to VMS at all. Can you please either send a patch, or at least run t/pod/find.t in the debugger ( perl -Mblib -d t/pod/find.t ) and let me know 1. where does the "Can't stat /USER/PPRYMMER/lib/pod: no such file or directory" come from? (which line) (yes, Pod::Find uses_File::Find, so the error may come from there) 2. what these variables contain, at line 63: $Qlib_dir $result $compare Thanks, Marek > -----Original Message----- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] > Sent: Tuesday, September 02, 2003 10:52 PM > To: Rouchal Marek (CL DAT DFA FDM) > Cc: [EMAIL PROTECTED]; [EMAIL PROTECTED] > Subject: Re: Verify PodParser > > 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 >
