diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-10 11:40:29 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-10 11:40:29 +0000 |
| commit | 349e1be188d528e573d1d7b9ae200dd93769fda1 (patch) | |
| tree | c6e744c6fea2df372e7f78d3d78b9824cfc43539 /lib/ExtUtils | |
| parent | a3987cb85d43c4b5e6f04382a9391c4ec5aa26ad (diff) | |
| download | perl-349e1be188d528e573d1d7b9ae200dd93769fda1.tar.gz | |
VMS-specific fixes to the ExtUtils::Manifest tests.
o VMS is case-insensitive, RTL downcases filenames read
by perl... so need to re-upcase filenames like MANIFEST
and MANIFEST.SKIP
o Need to convert VMS-style to Unix-style filenames when comparing
names in MANIFEST to names in filesystem.
o Need to remove mantest/MANIFEST before rmdir'ing mantest,
since VMS won't let you (easily) delete non-empty directories.
From Charles Lane.
p4raw-id: //depot/perl@12389
Diffstat (limited to 'lib/ExtUtils')
| -rw-r--r-- | lib/ExtUtils/Manifest.pm | 4 | ||||
| -rw-r--r-- | lib/ExtUtils/Manifest.t | 3 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lib/ExtUtils/Manifest.pm b/lib/ExtUtils/Manifest.pm index 2d4d7e3e19..e75b07764c 100644 --- a/lib/ExtUtils/Manifest.pm +++ b/lib/ExtUtils/Manifest.pm @@ -69,6 +69,7 @@ sub manifind { $name =~ s/^:([^:]+)$/$1/ if $Is_MacOS; warn "Debug: diskfile $name\n" if $Debug; $name =~ s#(.*)\.$#\L$1# if $Is_VMS; + $name = uc($name) if /^MANIFEST/i && $Is_VMS; $found->{$name} = "";}, $Is_MacOS ? ":" : "."); $found; } @@ -158,7 +159,8 @@ sub maniread { if (@pieces > 2) { $base = shift(@pieces) . '.' . join('_',@pieces); } my $okfile = "$dir$base"; warn "Debug: Illegal name $file changed to $okfile\n" if $Debug; - $file = "\L$okfile"; + $file = $okfile; + $file = lc($file) unless $file =~ /^MANIFEST/i; } $read->{$file} = $comment; diff --git a/lib/ExtUtils/Manifest.t b/lib/ExtUtils/Manifest.t index f62665e3c8..2492e2af43 100644 --- a/lib/ExtUtils/Manifest.t +++ b/lib/ExtUtils/Manifest.t @@ -106,6 +106,7 @@ is( join(' ', filecheck() ), 'bar', 'listing skipped with filecheck()' ); ok( mkdir( 'moretest', 0777 ), 'created moretest directory' ); my $quux = File::Spec->catfile( 'moretest', 'quux' ); $quux =~ s#\\#/#g; +$quux = VMS::Filespec::unixify($quux) if $^O eq 'VMS'; add_file( $quux, 'quux' ); ok( exists( ExtUtils::Manifest::manifind()->{$quux} ), "manifind found $quux" ); @@ -150,5 +151,7 @@ END { # now get rid of the parent directory ok( chdir( $cwd ), 'return to parent directory' ); + unlink('mantest/MANIFEST'); remove_dir( 'mantest' ); } + |