| Subject: | VMS patch for Module::Dependency 1.86 |
Hello and thank you for Module::Dependency 1.86,
I had to make the following changes to get it to pass it's tests on VMS:
Don't follow symbolic links on VMS with Perl 5.8.7 (this may be a bug
in File::Find)
==== Module-Dependency-1.86/lib/Module/Dependency/Indexer.pm ====
41c41
< follow => 1, # follow symbolic links
---
Show quoted text
> follow => ($^O ne 'VMS') ? 1 : 0, # follow
symbolic links
103d102
<
Use catdir for directories, and not catfile.
Ensure all versions of a file are unlinked.
==== Module-Dependency-1.86/t/02indexer.t ====
18c18
< my $tree = catfile( $dir, 'u' );
---
Show quoted text> my $tree = catdir( $dir, 'u' );
26,27c26,27
< if ( -f $index ) { unlink($index); }
< if ( -f $index2 ) { unlink($index2); }
---
Show quoted text> if ( -f $index ) { 1 while (unlink($index)); }
> if ( -f $index2 ) { 1 while (unlink($index2)); }
Ensure all versions of a file are unlinked.
==== Module-Dependency-1.86/t/99cleanup.t ====
13c13
< unlink( $_ );
---
Show quoted text> 1 while ( unlink( $_ ) );
Cheers,
Peter (Stig) Edwards