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.

diff --git a/dist/ExtUtils-Manifest/t/Manifest.t b/dist/ExtUtils-Manifest/t/Manifest.t
index 96c5b50..ba51f56 100644 (file)
--- 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