p4raw-id: //depot/perl@34591
$Is_MacOS $Is_VMS
$Debug $Verbose $Quiet $MANIFEST $DEFAULT_MSKIP);
-$VERSION = '1.54';
+$VERSION = '1.55';
@ISA=('Exporter');
@EXPORT_OK = qw(mkmanifest
manicheck filecheck fullcheck skipcheck
1 while unlink $file; # or else we'll get multiple versions on VMS
open( T, '> '.$file) or return;
print T $data;
- ++$Files{$file};
close T;
+ return 0 unless -e $file; # exists under the name we gave it ?
+ ++$Files{$file};
}
sub read_manifest {