This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to ExtUtils::Manifest 1.55.
[perl5.git] / lib / ExtUtils / t / Manifest.t
index 6139202..a3754b4 100644 (file)
@@ -35,8 +35,9 @@ sub add_file {
     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 {