diff options
| author | Craig A. Berry <craigberry@mac.com> | 2011-12-31 17:36:02 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2011-12-31 17:40:19 -0600 |
| commit | bf081550aa51eda33d3f725305e3280aae7ae355 (patch) | |
| tree | bfd2f5a17cee0fc8fe668c088bda3741a08a39da | |
| parent | d3da99118c57f98f64d30ad932cf3d9d49ffb728 (diff) | |
| download | perl-bf081550aa51eda33d3f725305e3280aae7ae355.tar.gz | |
Current VMS can handle filenames with spaces.
If they are escaped and on an ODS-5 volume, that is. We
then have to clean up all versions of the files created
by a test we weren't running before.
| -rw-r--r-- | dist/ExtUtils-Manifest/t/Manifest.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/dist/ExtUtils-Manifest/t/Manifest.t b/dist/ExtUtils-Manifest/t/Manifest.t index 96c5b50412..ba51f56382 100644 --- a/dist/ExtUtils-Manifest/t/Manifest.t +++ b/dist/ExtUtils-Manifest/t/Manifest.t @@ -44,6 +44,7 @@ my %Files; sub add_file { my ($file, $data) = @_; $data ||= 'foo'; + $file =~ s/ /^_/g if $Is_VMS; # escape spaces 1 while unlink $file; # or else we'll get multiple versions on VMS open( T, '> '.$file) or return; print T $data; @@ -451,6 +452,7 @@ SKIP: { END { is( unlink( keys %Files ), keys %Files, 'remove all added files' ); + for my $file ( keys %Files ) { 1 while unlink $file; } # all versions remove_dir( 'moretest', 'copy' ); # now get rid of the parent directory |