From bf081550aa51eda33d3f725305e3280aae7ae355 Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Sat, 31 Dec 2011 17:36:02 -0600 Subject: [PATCH] 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. --- dist/ExtUtils-Manifest/t/Manifest.t | 2 ++ 1 file changed, 2 insertions(+) diff --git a/dist/ExtUtils-Manifest/t/Manifest.t b/dist/ExtUtils-Manifest/t/Manifest.t index 96c5b50..ba51f56 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 -- 2.7.4