This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to ExtUtils-Manifest-1.57
authorSteve Hay <SteveHay@planit.com>
Sat, 10 Oct 2009 11:24:52 +0000 (12:24 +0100)
committerSteve Hay <SteveHay@planit.com>
Sun, 11 Oct 2009 02:12:06 +0000 (03:12 +0100)
Porting/Maintainers.pl
cpan/ExtUtils-Manifest/lib/ExtUtils/MANIFEST.SKIP
cpan/ExtUtils-Manifest/lib/ExtUtils/Manifest.pm

index fd71d6d..d6e7f1e 100755 (executable)
@@ -616,10 +616,10 @@ use File::Glob qw(:case);
     'ExtUtils::Manifest' =>
        {
        'MAINTAINER'    => 'rkobes',
-       'DISTRIBUTION'  => 'RKOBES/ExtUtils-Manifest-1.56.tar.gz',
+       'DISTRIBUTION'  => 'RKOBES/ExtUtils-Manifest-1.57.tar.gz',
        'FILES'         => q[cpan/ExtUtils-Manifest],
        'CPAN'          => 1,
-       'UPSTREAM'      => undef,
+       'UPSTREAM'      => 'cpan',
        },
 
     'ExtUtils::ParseXS' =>
index 885fedc..e50a7b3 100644 (file)
@@ -7,6 +7,12 @@
 \B\.git\b
 \B\.gitignore\b
 \b_darcs\b
+\B\.cvsignore$
+
+# Avoid VMS specific MakeMaker generated files
+\bDescrip.MMS$
+\bDESCRIP.MMS$
+\bdescrip.mms$
 
 # Avoid Makemaker generated and utility files.
 \bMANIFEST\.bak
 # Avoid Module::Build generated and utility files.
 \bBuild$
 \b_build/
+\bBuild.bat$
+\bBuild.COM$
+\bBUILD.COM$
+\bbuild.com$
 
 # Avoid temp and backup files.
 ~$
 \#$
 \b\.#
 \.bak$
+\.tmp$
+\.#
+\.rej$
+
+# Avoid OS-specific files/dirs
+# Mac OSX metadata
+\B\.DS_Store
+# Mac OSX SMB mount metadata files
+\B\._
 
 # Avoid Devel::Cover files.
 \bcover_db\b
index 7281421..df621d5 100644 (file)
@@ -13,7 +13,7 @@ use vars qw($VERSION @ISA @EXPORT_OK
           $Is_MacOS $Is_VMS $Is_VMS_mode $Is_VMS_lc $Is_VMS_nodot
           $Debug $Verbose $Quiet $MANIFEST $DEFAULT_MSKIP);
 
-$VERSION = '1.56';
+$VERSION = '1.57';
 @ISA=('Exporter');
 @EXPORT_OK = qw(mkmanifest
                 manicheck  filecheck  fullcheck  skipcheck
@@ -268,7 +268,7 @@ sub skipcheck {
     my @skipped = ();
     foreach my $file (_sort keys %$found){
         if (&$matches($file)){
-            warn "Skipping $file\n";
+            warn "Skipping $file\n" unless $Quiet;
             push @skipped, $file;
             next;
         }
@@ -409,13 +409,17 @@ sub maniskip {
     local(*M, $_);
     open M, "< $mfile" or open M, "< $DEFAULT_MSKIP" or return sub {0};
     while (<M>){
-       chomp;
-       s/\r//;
-       next if /^#/;
-       next if /^\s*$/;
-        s/^'//;
-        s/'$//;
-       push @skip, _macify($_);
+      chomp;
+      s/\r//;
+      $_ =~ qr{^\s*(?:(?:'([^\\']*(?:\\.[^\\']*)*)')|([^#\s]\S*))?(?:(?:\s*)|(?:\s+(.*?)\s*))$};
+      #my $comment = $3;
+      my $filename = $2;
+      if ( defined($1) ) { 
+        $filename = $1; 
+        $filename =~ s/\\(['\\])/$1/g;
+      }
+      next if (not defined($filename) or not $filename);
+      push @skip, _macify($filename);
     }
     close M;
     return sub {0} unless (scalar @skip > 0);