diff options
| author | Charles Lane <lane@DUPHY4.Physics.Drexel.Edu> | 2000-10-12 03:30:02 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-12 23:41:19 +0000 |
| commit | e4dfc136d9a3d82ffa8f71e721a4dfe58fd3bad2 (patch) | |
| tree | ce0330742726e1853298a07664dc2e3713400e22 /t/pod/testp2pt.pl | |
| parent | cbe7f703579edec09c7919d264de0a404e5d0f16 (diff) | |
| download | perl-e4dfc136d9a3d82ffa8f71e721a4dfe58fd3bad2.tar.gz | |
5.6.0 & 5.7.1, VMS fixes
Message-Id: <001012072828.2eabc@DUPHY4.Physics.Drexel.Edu>
p4raw-id: //depot/perl@7208
Diffstat (limited to 't/pod/testp2pt.pl')
| -rw-r--r-- | t/pod/testp2pt.pl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/t/pod/testp2pt.pl b/t/pod/testp2pt.pl index 91a20eeeec..8cfdbb9386 100644 --- a/t/pod/testp2pt.pl +++ b/t/pod/testp2pt.pl @@ -42,8 +42,11 @@ BEGIN { sub catfile(@) { File::Spec->catfile(@_); } my $INSTDIR = abs_path(dirname $0); -$INSTDIR = VMS::Filespec::unixpath($INSTDIR) if $^O eq 'VMS'; -$INSTDIR =~ s#/$## if $^O eq 'VMS'; +if ($^O eq 'VMS') { # clean up directory spec + $INSTDIR = VMS::Filespec::unixpath($INSTDIR); + $INSTDIR =~ s#/$##; + $INSTDIR =~ s#/000000/#/#; +} $INSTDIR = (dirname $INSTDIR) if (basename($INSTDIR) eq 'pod'); $INSTDIR = (dirname $INSTDIR) if (basename($INSTDIR) eq 't'); my @PODINCDIRS = ( catfile($INSTDIR, 'lib', 'Pod'), @@ -51,6 +54,7 @@ my @PODINCDIRS = ( catfile($INSTDIR, 'lib', 'Pod'), catfile($INSTDIR, 'pod'), catfile($INSTDIR, 't', 'pod') ); +print "PODINCDIRS = ",join(', ',@PODINCDIRS),"\n"; ## Find the path to the file to =include sub findinclude { |