This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to ExtUtils::Manifest 1.55.
authorNicholas Clark <nick@ccl4.org>
Sat, 25 Oct 2008 15:23:48 +0000 (15:23 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 25 Oct 2008 15:23:48 +0000 (15:23 +0000)
p4raw-id: //depot/perl@34591

lib/ExtUtils/Manifest.pm
lib/ExtUtils/t/Manifest.t

index bcc476d..c7eb39a 100644 (file)
@@ -13,7 +13,7 @@ use vars qw($VERSION @ISA @EXPORT_OK
           $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
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 {