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.
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;
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