This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Bump up version numbers.
[perl5.git] / lib / ExtUtils / Manifest.pm
index 244214a..4656ead 100644 (file)
@@ -12,7 +12,7 @@ our ($VERSION,@ISA,@EXPORT_OK,
            $Is_MacOS,$Is_VMS,
            $Debug,$Verbose,$Quiet,$MANIFEST,$found,$DEFAULT_MSKIP);
 
-$VERSION = substr(q$Revision: 1.33 $, 10);
+$VERSION = substr(q$Revision: 1.35 $, 10);
 @ISA=('Exporter');
 @EXPORT_OK = ('mkmanifest', 'manicheck', 'fullcheck', 'filecheck', 
              'skipcheck', 'maniread', 'manicopy');
@@ -35,7 +35,7 @@ unless (defined $Config{d_link}) {
 
 sub mkmanifest {
     my $manimiss = 0;
-    my $read = maniread() or $manimiss++;
+    my $read = (-r 'MANIFEST' && maniread()) or $manimiss++;
     $read = {} if $manimiss;
     local *M;
     rename $MANIFEST, "$MANIFEST.bak" unless $manimiss;
@@ -121,7 +121,7 @@ sub _manicheck {
            }
            warn "Debug: manicheck checking from disk $file\n" if $Debug;
            unless ( exists $read->{$file} ) {
-               my $canon = "\t" . _unmacify($file) if $Is_MacOS;
+               my $canon = $Is_MacOS ? "\t" . _unmacify($file) : '';
                warn "Not in $MANIFEST: $file$canon\n" unless $Quiet;
                push @missentry, $file;
            }