| Subject: | Archive::Tar 1.29 PATCH for VMS to fix test case failure in 99_pod.t |
Under Perl 5.87 on VMS, Archive::Tar 1.29, test cases in 99_pod.t fail
due to (non VMS) file paths returned from a call to File::Find.
Lines 11 and 12 in 99_pod.t (below)
find( sub { push @files, $File::Find::name if /\.p(?:l|m|od)$/ },
File::Spec->catfile( qw(blib lib) ) );
In this instance $File::Find::name is the full path to the files
found, this is in *nix syntax, and is not a valid filename on VMS.
Also catfile is being used to concat 2 directories, this often does
not cause a problem on *nix systems, but on VMS it does. The two lines
can be replaced with the following and this results in all test cases
passing. (I'm building with the option "-n")
find( sub { push @files, File::Spec->catfile(File::Spec->splitdir($File
::Find::dir),$_) if /\.p(?:l|m|od)$/ },
File::Spec->catdir( qw(blib lib) ) );
Thank you.
Cheers,
Peter (Stig) Edwards