ExtUtils::Manifest not -w clean

Reply-To: mjtg@cam.ac.uk
Message-Id: <E159Ei8-0006Tz-00@draco.cus.cam.ac.uk>

p4raw-id: //depot/perl@10508

diff --git a/lib/ExtUtils/Manifest.pm b/lib/ExtUtils/Manifest.pm
index 244214a..4e38774 100644 (file)
--- a/lib/ExtUtils/Manifest.pm
+++ b/lib/ExtUtils/Manifest.pm
@@ -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;
            }