开源软件构建与测试

_service:tar_scm:perl-ExtUtils-Manifest.spec Changed

_service:tar_scm:ExtUtils-Manifest-1.73.tar.gz/Changes -> _service:tar_scm:ExtUtils-Manifest-1.75.tar.gz/Changes Changed

_service:tar_scm:ExtUtils-Manifest-1.73.tar.gz/INSTALL -> _service:tar_scm:ExtUtils-Manifest-1.75.tar.gz/INSTALL Changed

_service:tar_scm:ExtUtils-Manifest-1.73.tar.gz/LICENSE -> _service:tar_scm:ExtUtils-Manifest-1.75.tar.gz/LICENSE Changed

@@ -292,21 +292,21 @@
 
   - "Package" refers to the collection of files distributed by the Copyright
     Holder, and derivatives of that collection of files created through
-    textual modification. 
+    textual modification.
   - "Standard Version" refers to such a Package if it has not been modified,
     or has been modified in accordance with the wishes of the Copyright
-    Holder. 
+    Holder.
   - "Copyright Holder" is whoever is named in the copyright or copyrights for
-    the package. 
+    the package.
   - "You" is you, if you're thinking about copying or distributing this Package.
   - "Reasonable copying fee" is whatever you can justify on the basis of media
     cost, duplication charges, time of people involved, and so on. (You will
     not be required to justify it to the Copyright Holder, but only to the
-    computing community at large as a market that must bear the fee.) 
+    computing community at large as a market that must bear the fee.)
   - "Freely Available" means that no fee is charged for the item itself, though
     there may be fees involved in handling the item. It also means that
     recipients of the item may redistribute it under the same conditions they
-    received it. 
+    received it.
 
 1. You may make and give away verbatim copies of the source form of the
 Standard Version of this Package without restriction, provided that you
@@ -373,7 +373,7 @@
 
 9. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
 WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 
 The End

_service:tar_scm:ExtUtils-Manifest-1.73.tar.gz/MANIFEST -> _service:tar_scm:ExtUtils-Manifest-1.75.tar.gz/MANIFEST Changed

_service:tar_scm:ExtUtils-Manifest-1.73.tar.gz/META.json -> _service:tar_scm:ExtUtils-Manifest-1.75.tar.gz/META.json Changed

@@ -7,7 +7,7 @@
       "The Perl 5 Porters"
    ,
    "dynamic_config" : 0,
-   "generated_by" : "Dist::Zilla version 6.017, CPAN::Meta::Converter version 2.150010",
+   "generated_by" : "Dist::Zilla version 6.030, CPAN::Meta::Converter version 2.150010",
    "license" : 
       "perl_5"
    ,
@@ -126,7 +126,7 @@
    "provides" : {
       "ExtUtils::Manifest" : {
          "file" : "lib/ExtUtils/Manifest.pm",
-         "version" : "1.73"
+         "version" : "1.75"
       }
    },
    "release_status" : "stable",
@@ -143,16 +143,16 @@
       "x_IRC" : "irc://irc.perl.org/#toolchain",
       "x_MailingList" : "http://lists.perl.org/list/cpan-workers.html"
    },
-   "version" : "1.73",
+   "version" : "1.75",
    "x_Dist_Zilla" : {
       "perl" : {
-         "version" : "5.033005"
+         "version" : "5.037011"
       },
       "plugins" : 
          {
             "class" : "Dist::Zilla::Plugin::PodVersion",
             "name" : "PodVersion",
-            "version" : "6.017"
+            "version" : "6.030"
          },
          {
             "class" : "Dist::Zilla::Plugin::OnlyCorePrereqs",
@@ -191,7 +191,7 @@
          {
             "class" : "Dist::Zilla::Plugin::MetaResources",
             "name" : "MetaResources",
-            "version" : "6.017"
+            "version" : "6.030"
          },
          {
             "class" : "Dist::Zilla::Plugin::PromptIfStale",
@@ -228,32 +228,32 @@
                }
             },
             "name" : "Git::GatherDir",
-            "version" : "2.047"
+            "version" : "2.048"
          },
          {
             "class" : "Dist::Zilla::Plugin::MetaYAML",
             "name" : "MetaYAML",
-            "version" : "6.017"
+            "version" : "6.030"
          },
          {
             "class" : "Dist::Zilla::Plugin::MetaJSON",
             "name" : "MetaJSON",
-            "version" : "6.017"
+            "version" : "6.030"
          },
          {
             "class" : "Dist::Zilla::Plugin::License",
             "name" : "License",
-            "version" : "6.017"
+            "version" : "6.030"
          },
          {
             "class" : "Dist::Zilla::Plugin::Readme",
             "name" : "Readme",
-            "version" : "6.017"
+            "version" : "6.030"
          },
          {
             "class" : "Dist::Zilla::Plugin::Manifest",
             "name" : "Manifest",
-            "version" : "6.017"
+            "version" : "6.030"
          },
          {
             "class" : "Dist::Zilla::Plugin::InstallGuide",
@@ -264,7 +264,7 @@
                }
             },
             "name" : "InstallGuide",
-            "version" : "1.200013"
+            "version" : "1.200014"
          },
          {
             "class" : "Dist::Zilla::Plugin::Test::Compile",
@@ -292,7 +292,7 @@
          {
             "class" : "Dist::Zilla::Plugin::MetaTests",
             "name" : "MetaTests",
-            "version" : "6.017"
+            "version" : "6.030"
          },
          {
             "class" : "Dist::Zilla::Plugin::Test::ChangesHasContent",
@@ -312,7 +312,7 @@
          {
             "class" : "Dist::Zilla::Plugin::PodSyntaxTests",
             "name" : "PodSyntaxTests",
-            "version" : "6.017"
+            "version" : "6.030"
          },
          {
             "class" : "Dist::Zilla::Plugin::Test::Pod::No404s",
@@ -327,7 +327,7 @@
          {
             "class" : "Dist::Zilla::Plugin::Test::ReportPrereqs",
             "name" : "Test::ReportPrereqs",
-            "version" : "0.028"
+            "version" : "0.029"
          },
          {
             "class" : "Dist::Zilla::Plugin::Test::Portability",
@@ -337,7 +337,7 @@
                }
             },
             "name" : "Test::Portability",
-            "version" : "2.001000"
+            "version" : "2.001001"
          },
          {
             "class" : "Dist::Zilla::Plugin::Test::CPAN::Changes",
@@ -352,7 +352,7 @@
          {
             "class" : "Dist::Zilla::Plugin::Git::Describe",
             "name" : "Git::Describe",
-            "version" : "0.007"
+            "version" : "0.008"
          },
          {
             "class" : "Dist::Zilla::Plugin::ReadmeAnyFromPod",
@@ -380,7 +380,7 @@
                      {
                         "class" : "Dist::Zilla::Plugin::FinderCode",
                         "name" : ":InstallModules",
-                        "version" : "6.017"
+                        "version" : "6.030"
                      }
                   ,
                   "include_underscores" : 0
@@ -402,13 +402,13 @@
          {
             "class" : "Dist::Zilla::Plugin::MetaConfig",
             "name" : "MetaConfig",
-            "version" : "6.017"
+            "version" : "6.030"
          },
          {
             "class" : "Dist::Zilla::Plugin::Git::Contributors",
             "config" : {
                "Dist::Zilla::Plugin::Git::Contributors" : {
-                  "git_version" : "2.29.2",
+                  "git_version" : "2.40.0",
                   "include_authors" : 0,
                   "include_releaser" : 1,
                   "order_by" : "commits",
@@ -421,7 +421,7 @@
          {
             "class" : "Dist::Zilla::Plugin::AutoPrereqs",
             "name" : "AutoPrereqs",
-            "version" : "6.017"
+            "version" : "6.030"
          },
          {
             "class" : "Dist::Zilla::Plugin::Prereqs::AuthorDeps",
@@ -444,7 +444,7 @@
                }
             },
             "name" : "RemovePrereqs",
-            "version" : "6.017"
+            "version" : "6.030"
          },
          {
             "class" : "Dist::Zilla::Plugin::MakeMaker",
@@ -454,7 +454,7 @@
                }
             },
             "name" : "MakeMaker",
-            "version" : "6.017"
+            "version" : "6.030"
          },
          {
             "class" : "Dist::Zilla::Plugin::CheckSelfDependency",
@@ -489,12 +489,12 @@
                   "changelog" : "Changes"
                },
                "Dist::Zilla::Role::Git::Repo" : {
-                  "git_version" : "2.29.2",
+                  "git_version" : "2.40.0",
                   "repo_root" : "."
                }

_service:tar_scm:ExtUtils-Manifest-1.73.tar.gz/META.yml -> _service:tar_scm:ExtUtils-Manifest-1.75.tar.gz/META.yml Changed

@@ -16,7 +16,7 @@
   ExtUtils::MakeMaker: '0'
   perl: '5.006'
 dynamic_config: 0
-generated_by: 'Dist::Zilla version 6.017, CPAN::Meta::Converter version 2.150010'
+generated_by: 'Dist::Zilla version 6.030, CPAN::Meta::Converter version 2.150010'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -25,7 +25,7 @@
 provides:
   ExtUtils::Manifest:
     file: lib/ExtUtils/Manifest.pm
-    version: '1.73'
+    version: '1.75'
 requires:
   Carp: '0'
   Exporter: '0'
@@ -43,22 +43,22 @@
   bugtracker: http://github.com/Perl-Toolchain-Gang/ExtUtils-Manifest/issues
   homepage: https://metacpan.org/release/ExtUtils-Manifest
   repository: git://github.com/Perl-Toolchain-Gang/Extutils-Manifest.git
-version: '1.73'
+version: '1.75'
 x_Dist_Zilla:
   perl:
-    version: '5.033005'
+    version: '5.037011'
   plugins:
     -
       class: Dist::Zilla::Plugin::PodVersion
       name: PodVersion
-      version: '6.017'
+      version: '6.030'
     -
       class: Dist::Zilla::Plugin::OnlyCorePrereqs
       config:
         Dist::Zilla::Plugin::OnlyCorePrereqs:
           also_disallow: 
           check_dual_life_versions: '0'
-          deprecated_ok: '0'
+          deprecated_ok: 0
           phases:
             - configure
             - build
@@ -81,7 +81,7 @@
     -
       class: Dist::Zilla::Plugin::MetaResources
       name: MetaResources
-      version: '6.017'
+      version: '6.030'
     -
       class: Dist::Zilla::Plugin::PromptIfStale
       config:
@@ -110,27 +110,27 @@
         Dist::Zilla::Plugin::Git::GatherDir:
           include_untracked: 0
       name: Git::GatherDir
-      version: '2.047'
+      version: '2.048'
     -
       class: Dist::Zilla::Plugin::MetaYAML
       name: MetaYAML
-      version: '6.017'
+      version: '6.030'
     -
       class: Dist::Zilla::Plugin::MetaJSON
       name: MetaJSON
-      version: '6.017'
+      version: '6.030'
     -
       class: Dist::Zilla::Plugin::License
       name: License
-      version: '6.017'
+      version: '6.030'
     -
       class: Dist::Zilla::Plugin::Readme
       name: Readme
-      version: '6.017'
+      version: '6.030'
     -
       class: Dist::Zilla::Plugin::Manifest
       name: Manifest
-      version: '6.017'
+      version: '6.030'
     -
       class: Dist::Zilla::Plugin::InstallGuide
       config:
@@ -138,7 +138,7 @@
           Module::Metadata: '1.000037'
           version: '0.006'
       name: InstallGuide
-      version: '1.200013'
+      version: '1.200014'
     -
       class: Dist::Zilla::Plugin::Test::Compile
       config:
@@ -160,7 +160,7 @@
     -
       class: Dist::Zilla::Plugin::MetaTests
       name: MetaTests
-      version: '6.017'
+      version: '6.030'
     -
       class: Dist::Zilla::Plugin::Test::ChangesHasContent
       name: Test::ChangesHasContent
@@ -175,7 +175,7 @@
     -
       class: Dist::Zilla::Plugin::PodSyntaxTests
       name: PodSyntaxTests
-      version: '6.017'
+      version: '6.030'
     -
       class: Dist::Zilla::Plugin::Test::Pod::No404s
       name: Test::Pod::No404s
@@ -187,14 +187,14 @@
     -
       class: Dist::Zilla::Plugin::Test::ReportPrereqs
       name: Test::ReportPrereqs
-      version: '0.028'
+      version: '0.029'
     -
       class: Dist::Zilla::Plugin::Test::Portability
       config:
         Dist::Zilla::Plugin::Test::Portability:
           options: ''
       name: Test::Portability
-      version: '2.001000'
+      version: '2.001001'
     -
       class: Dist::Zilla::Plugin::Test::CPAN::Changes
       config:
@@ -205,7 +205,7 @@
     -
       class: Dist::Zilla::Plugin::Git::Describe
       name: Git::Describe
-      version: '0.007'
+      version: '0.008'
     -
       class: Dist::Zilla::Plugin::ReadmeAnyFromPod
       config:
@@ -227,7 +227,7 @@
             -
               class: Dist::Zilla::Plugin::FinderCode
               name: ':InstallModules'
-              version: '6.017'
+              version: '6.030'
           include_underscores: 0
         Dist::Zilla::Role::MetaProvider::Provider:
           $Dist::Zilla::Role::MetaProvider::Provider::VERSION: '2.002004'
@@ -242,12 +242,12 @@
     -
       class: Dist::Zilla::Plugin::MetaConfig
       name: MetaConfig
-      version: '6.017'
+      version: '6.030'
     -
       class: Dist::Zilla::Plugin::Git::Contributors
       config:
         Dist::Zilla::Plugin::Git::Contributors:
-          git_version: 2.29.2
+          git_version: 2.40.0
           include_authors: 0
           include_releaser: 1
           order_by: commits
@@ -257,7 +257,7 @@
     -
       class: Dist::Zilla::Plugin::AutoPrereqs
       name: AutoPrereqs
-      version: '6.017'
+      version: '6.030'
     -
       class: Dist::Zilla::Plugin::Prereqs::AuthorDeps
       name: Prereqs::AuthorDeps
@@ -274,14 +274,14 @@
             - VMS::Feature
             - VMS::Filespec
       name: RemovePrereqs
-      version: '6.017'
+      version: '6.030'
     -
       class: Dist::Zilla::Plugin::MakeMaker
       config:
         Dist::Zilla::Role::TestRunner:
           default_jobs: '6'
       name: MakeMaker
-      version: '6.017'
+      version: '6.030'
     -
       class: Dist::Zilla::Plugin::CheckSelfDependency
       config:
@@ -307,10 +307,10 @@
           allow_dirty_match: 
           changelog: Changes
         Dist::Zilla::Role::Git::Repo:
-          git_version: 2.29.2
+          git_version: 2.40.0
           repo_root: .
       name: 'initial check'
-      version: '2.047'

_service:tar_scm:ExtUtils-Manifest-1.73.tar.gz/Makefile.PL -> _service:tar_scm:ExtUtils-Manifest-1.75.tar.gz/Makefile.PL Changed

_service:tar_scm:ExtUtils-Manifest-1.73.tar.gz/README -> _service:tar_scm:ExtUtils-Manifest-1.75.tar.gz/README Changed

_service:tar_scm:ExtUtils-Manifest-1.73.tar.gz/lib/ExtUtils/MANIFEST.SKIP -> _service:tar_scm:ExtUtils-Manifest-1.75.tar.gz/lib/ExtUtils/MANIFEST.SKIP Changed

_service:tar_scm:ExtUtils-Manifest-1.73.tar.gz/lib/ExtUtils/Manifest.pm -> _service:tar_scm:ExtUtils-Manifest-1.75.tar.gz/lib/ExtUtils/Manifest.pm Changed

@@ -1,4 +1,4 @@
-package ExtUtils::Manifest; # git description: 1.72-7-g54209ce
+package ExtUtils::Manifest; # git description: 1.74-10-g1bddbb0
 
 require Exporter;
 use Config;
@@ -10,7 +10,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '1.73';
+our $VERSION = '1.75';
 our @ISA = ('Exporter');
 our @EXPORT_OK = qw(mkmanifest
                 manicheck  filecheck  fullcheck  skipcheck
@@ -18,7 +18,6 @@
                 maniskip
                );
 
-our $Is_MacOS = $^O eq 'MacOS';
 our $Is_VMS   = $^O eq 'VMS';
 our $Is_VMS_mode = 0;
 our $Is_VMS_lc = 0;
@@ -65,7 +64,7 @@
 
 =head1 VERSION
 
-version 1.73
+version 1.75
 
 =head1 SYNOPSIS
 
@@ -120,12 +119,11 @@
     my $manimiss = 0;
     my $read = (-r 'MANIFEST' && maniread()) or $manimiss++;
     $read = {} if $manimiss;
-    local *M;
     my $bakbase = $MANIFEST;
     $bakbase =~ s/\./_/g if $Is_VMS_nodot; # avoid double dots
     rename $MANIFEST, "$bakbase.bak" unless $manimiss;
-    open M, "> $MANIFEST" or die "Could not open $MANIFEST: $!";
-    binmode M, ':raw';
+    open my $fh, '>', $MANIFEST or die "Could not open $MANIFEST: $!";
+    binmode $fh, ':raw';
     my $skip = maniskip();
     my $found = manifind();
     my($key,$val,$file,%all);
@@ -134,27 +132,25 @@
                      'This list of files'
         if $manimiss; # add new MANIFEST to known file list
     foreach $file (_sort keys %all) {
-	if ($skip->($file)) {
-	    # Policy: only remove files if they're listed in MANIFEST.SKIP.
-	    # Don't remove files just because they don't exist.
-	    warn "Removed from $MANIFEST: $file\n" if $Verbose and exists $read->{$file};
-	    next;
-	}
-	if ($Verbose){
-	    warn "Added to $MANIFEST: $file\n" unless exists $read->{$file};
-	}
-	my $text = $all{$file};
-	$file = _unmacify($file);
-	my $tabs = (5 - (length($file)+1)/8);
-	$tabs = 1 if $tabs < 1;
-	$tabs = 0 unless $text;
+        if ($skip->($file)) {
+            # Policy: only remove files if they're listed in MANIFEST.SKIP.
+            # Don't remove files just because they don't exist.
+            warn "Removed from $MANIFEST: $file\n" if $Verbose and exists $read->{$file};
+            next;
+        }
+        if ($Verbose){
+            warn "Added to $MANIFEST: $file\n" unless exists $read->{$file};
+        }
+        my $text = $all{$file};
+        my $tabs = (5 - (length($file)+1)/8);
+        $tabs = 1 if $tabs < 1;
+        $tabs = 0 unless $text;
         if ($file =~ /\s/) {
             $file =~ s/(\\')/\\$1/g;
             $file = "'$file'";
         }
-	print M $file, "\t" x $tabs, $text, "\n";
+        print $fh $file, "\t" x $tabs, $text, "\n";
     }
-    close M;
 }
 
 # Geez, shouldn't this use File::Spec or File::Basename or something?
@@ -162,7 +158,6 @@
 sub clean_up_filename {
   my $filename = shift;
   $filename =~ s|^\./||;
-  $filename =~ s/^:(^:+)$/$1/ if $Is_MacOS;
   if ( $Is_VMS ) {
       $filename =~ s/\.$//;                           # trim trailing dot
       $filename = VMS::Filespec::unixify($filename);  # unescape spaces, etc.
@@ -189,18 +184,17 @@
     my $found = {};
 
     my $wanted = sub {
-	my $name = clean_up_filename($File::Find::name);
-	warn "Debug: diskfile $name\n" if $Debug;
-	return if -d $_;
-	$found->{$name} = "";
+        my $name = clean_up_filename($File::Find::name);
+        warn "Debug: diskfile $name\n" if $Debug;
+        return if -d $_;
+        $found->{$name} = "";
     };
 
     # We have to use "$File::Find::dir/$_" in preprocess, because
     # $File::Find::name is unavailable.
     # Also, it's okay to use / here, because MANIFEST files use Unix-style
     # paths.
-    find({wanted => $wanted, follow_fast => 1},
-	 $Is_MacOS ? ":" : ".");
+    find({wanted => $wanted, follow_fast => 1}, ".");
 
     return $found;
 }
@@ -318,8 +312,7 @@
         next if $skip->($file);
         warn "Debug: manicheck checking from disk $file\n" if $Debug;
         unless ( exists $read->{$file} ) {
-            my $canon = $Is_MacOS ? "\t" . _unmacify($file) : '';
-            warn "Not in $MANIFEST: $file$canon\n" unless $Quiet;
+            warn "Not in $MANIFEST: $file\n" unless $Quiet;
             push @missentry, $file;
         }
     }
@@ -344,13 +337,13 @@
     my ($mfile) = @_;
     $mfile ||= $MANIFEST;
     my $read = {};
-    local *M;
-    unless (open M, "< $mfile"){
+    my $fh;
+    unless (open $fh, '<', $mfile){
         warn "Problem opening $mfile: $!";
         return $read;
     }
     local $_;
-    while (<M>){
+    while (<$fh>){
         chomp;
         next if /^\s*#/;
 
@@ -366,11 +359,7 @@
         }
         next unless $file;
 
-        if ($Is_MacOS) {
-            $file = _macify($file);
-            $file =~ s/\$0-30-70-7)/sprintf("%c", oct($1))/ge;
-        }
-        elsif ($Is_VMS_mode) {
+        if ($Is_VMS_mode) {
             require File::Basename;
             my($base,$dir) = File::Basename::fileparse($file);
             # Resolve illegal file specifications in the same way as tar
@@ -391,7 +380,6 @@
 
         $read->{$file} = $comment;
     }
-    close M;
     $read;
 }
 
@@ -408,27 +396,39 @@
 
 =cut
 
+sub _process_skipline {
+    local $_ = shift;
+    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;
+    }
+    $filename;
+}
+
 # returns an anonymous sub that decides if an argument matches
 sub maniskip {
     my @skip ;
     my $mfile = shift || "$MANIFEST.SKIP";
     _check_mskip_directives($mfile) if -f $mfile;
-    local(*M, $_);
-    open M, "< $mfile" or open M, "< $DEFAULT_MSKIP" or return sub {0};
-    while (<M>){
-      chomp;
-      s/\r//;
-      $_ =~ qr{^\s*(?:(?:'(^\\'*(?:\\.^\\'*)*)')|(^#\s\S*))?(?:(?:\s*)|(?:\s+(.*?)\s*))$};
-      #my $comment = $3;
-      my $filename = $2;

_service:tar_scm:ExtUtils-Manifest-1.73.tar.gz/t/00-report-prereqs.t -> _service:tar_scm:ExtUtils-Manifest-1.75.tar.gz/t/00-report-prereqs.t Changed

@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-# This test was generated by Dist::Zilla::Plugin::Test::ReportPrereqs 0.028
+# This test was generated by Dist::Zilla::Plugin::Test::ReportPrereqs 0.029
 
 use Test::More tests => 1;
 
@@ -109,20 +109,24 @@
         my @reports = qw/Module Want Have/;
 
         for my $mod ( sort keys %{ $req_hash->{$phase}{$type} } ) {
-            next if $mod eq 'perl';
             next if grep { $_ eq $mod } @exclude;
 
-            my $file = $mod;
-            $file =~ s{::}{/}g;
-            $file .= ".pm";
-            my ($prefix) = grep { -e File::Spec->catfile($_, $file) } @INC;
-
             my $want = $req_hash->{$phase}{$type}{$mod};
             $want = "undef" unless defined $want;
             $want = "any" if !$want && $want == 0;
 
+            if ($mod eq 'perl') {
+                push @reports, 'perl', $want, $;
+                next;
+            }
+
             my $req_string = $want eq 'any' ? 'any version required' : "version '$want' required";
 
+            my $file = $mod;
+            $file =~ s{::}{/}g;
+            $file .= ".pm";
+            my ($prefix) = grep { -e File::Spec->catfile($_, $file) } @INC;
+
             if ($prefix) {
                 my $have = MM->parse_version( File::Spec->catfile($prefix, $file) );
                 $have = "undef" unless defined $have;

_service:tar_scm:ExtUtils-Manifest-1.73.tar.gz/t/Manifest.t -> _service:tar_scm:ExtUtils-Manifest-1.75.tar.gz/t/Manifest.t Changed

@@ -13,7 +13,7 @@
 }
 chdir 't';
 
-use Test::More tests => 98;
+use Test::More tests => 101;
 use Cwd;
 
 use File::Spec;
@@ -132,14 +132,14 @@
 
 my @skipped;
 catch_warning( sub {
-	@skipped = skipcheck()
+    @skipped = skipcheck()
 });
 
 is( join( ' ', @skipped ), 'MANIFEST.SKIP', 'listed skipped files' );
 
 {
-	local $ExtUtils::Manifest::Quiet = 1;
-	is( join(' ', filecheck() ), 'bar', 'listing skipped with filecheck()' );
+    local $ExtUtils::Manifest::Quiet = 1;
+    is( join(' ', filecheck() ), 'bar', 'listing skipped with filecheck()' );
 }
 
 # add a subdirectory and a file there that should be found
@@ -185,7 +185,7 @@
 ok( mkdir( 'copy', 0777 ), 'made copy directory' );
 $files = maniread();
 eval { (undef, $warn) = catch_warning( sub {
-		manicopy( $files, 'copy', 'cp' ) })
+    manicopy( $files, 'copy', 'cp' ) })
 };
 
 # a newline comes through, so get rid of it
@@ -197,12 +197,12 @@
 
 # tell ExtUtils::Manifest to use a different file
 {
-	local $ExtUtils::Manifest::MANIFEST = 'albatross';
-	($res, $warn) = catch_warning( \&mkmanifest );
-	like( $warn, qr/Added to albatross: /, 'using a new manifest file' );
+    local $ExtUtils::Manifest::MANIFEST = 'albatross';
+    ($res, $warn) = catch_warning( \&mkmanifest );
+    like( $warn, qr/Added to albatross: /, 'using a new manifest file' );
 
-	# add the new file to the list of files to be deleted
-	$Files{'albatross'}++;
+    # add the new file to the list of files to be deleted
+    $Files{'albatross'}++;
 }
 
 
@@ -233,10 +233,10 @@
 is( $files->{foobar}, '',    '          preserved old entries' );
 
 my $manicontents = do {
-  local $/;
-  open my $fh, "MANIFEST" or die;
-  binmode $fh, ':raw';
-  <$fh>
+    local $/;
+    open my $fh, "MANIFEST" or die;
+    binmode $fh, ':raw';
+    <$fh>
 };
 is index($manicontents, "\015\012"), -1, 'MANIFEST no CRLF';
 
@@ -291,11 +291,11 @@
     local $ExtUtils::Manifest::MANIFEST = "albatross";
     maniadd({ 'foo bar' => "contains space"});
     is( maniread()->{'foo bar'}, "contains space",
-	'spaced manifest filename' );
+        'spaced manifest filename' );
     add_file( 'albatross.bak', '' );
     ($res, $warn) = catch_warning( \&mkmanifest );
     like( $warn, qr/\A(Added to.*\n)+\z/m,
-	  'no warnings about funky filename' );
+        'no warnings about funky filename' );
     $funky_files{'space'} = 'foo bar';
 }
 
@@ -306,7 +306,7 @@
     local $ExtUtils::Manifest::MANIFEST = "albatross";
     maniadd({ 'foo\' baz\'quux' => "contains quote"});
     is( maniread()->{'foo\' baz\'quux'}, "contains quote",
-	'quoted manifest filename' );
+        'quoted manifest filename' );
     $funky_files{'space_quote'} = 'foo\' baz\'quux';
 }
 
@@ -317,7 +317,7 @@
     local $ExtUtils::Manifest::MANIFEST = "albatross";
     maniadd({ 'foo bar\\baz' => "contains backslash"});
     is( maniread()->{'foo bar\\baz'}, "contains backslash",
-	'backslashed manifest filename' );
+        'backslashed manifest filename' );
     $funky_files{'space_backslash'} = 'foo bar\\baz';
 }
 
@@ -328,7 +328,7 @@
     local $ExtUtils::Manifest::MANIFEST = "albatross";
     maniadd({ 'foo bar\\baz\'quux' => "backslash and quote"});
     is( maniread()->{'foo bar\\baz\'quux'}, "backslash and quote",
-	'backslashed and quoted manifest filename' );
+        'backslashed and quoted manifest filename' );
     $funky_files{'space_quote_backslash'} = 'foo bar\\baz\'quux';
 }
 
@@ -342,14 +342,16 @@
     local $ExtUtils::Manifest::MANIFEST = "albatross";
     maniadd({ $quoted_filename => $description });
     is( maniread()->{$quoted_filename}, $description,
-     'file whose name starts and ends with quotes' );
+        'file whose name starts and ends with quotes' );
     $funky_files{$description} = $quoted_filename;
 }
 
 my @funky_keys = qw(space space_quote space_backslash space_quote_backslash);
 # test including an external manifest.skip file in MANIFEST.SKIP
 {
-    maniadd({ foo => undef , albatross => undef,
+    local $ENV{HOME} = File::Spec->catdir($cwd, qw(mantest));
+
+    maniadd({ foo => undef, orange => undef, albatross => undef,
               'mymanifest.skip' => undef, 'mydefault.skip' => undef});
     for (@funky_keys) {
         maniadd( {$funky_files{$_} => $_} ) if defined $funky_files{$_};
@@ -360,8 +362,9 @@
     local $ExtUtils::Manifest::DEFAULT_MSKIP =
          File::Spec->catfile($cwd, qw(mantest mydefault.skip));
     my $skip = File::Spec->catfile($cwd, qw(mantest mymanifest.skip));
+    add_file('global.skip' => "^orange\n");
     add_file('MANIFEST.SKIP' =>
-             "albatross\n#!include $skip\n#!include_default");
+             "albatross\n#!include $skip\n#!include_default\n#!include ~/global.skip");
     my ($res, $warn) = catch_warning( \&skipcheck );
     for (qw(albatross foo foobar mymanifest.skip mydefault.skip)) {
         like( $warn, qr/Skipping \b$_\b/,
@@ -370,23 +373,23 @@
     for my $funky_key (@funky_keys) {
         SKIP: {
             my $funky_file = $funky_files{$funky_key};
-	    skip "'$funky_key' not created", 1 unless $funky_file;
-	    like( $warn, qr/Skipping \b\Q$funky_file\E\b/,
-	      "Skipping $funky_file");
-	}
+            skip "'$funky_key' not created", 1 unless $funky_file;
+            like( $warn, qr/Skipping \b\Q$funky_file\E\b/,
+              "Skipping $funky_file");
+        }
     }
     ($res, $warn) = catch_warning( \&mkmanifest );
-    for (qw(albatross foo foobar mymanifest.skip mydefault.skip)) {
+    for (qw(albatross foo foobar mymanifest.skip mydefault.skip orange)) {
         like( $warn, qr/Removed from MANIFEST: \b$_\b/,
               "Removed $_ from MANIFEST" );
     }
     for my $funky_key (@funky_keys) {
         SKIP: {
             my $funky_file = $funky_files{$funky_key};
-	    skip "'$funky_key' not created", 1 unless $funky_file;
-	    like( $warn, qr/Removed from MANIFEST: \b\Q$funky_file\E\b/,
-	      "Removed $funky_file from MANIFEST");
-	}
+            skip "'$funky_key' not created", 1 unless $funky_file;
+            like( $warn, qr/Removed from MANIFEST: \b\Q$funky_file\E\b/,
+              "Removed $funky_file from MANIFEST");
+        }
     }
     my $files = maniread;
     ok( ! exists $files->{albatross}, 'albatross excluded via MANIFEST.SKIP' );
@@ -394,6 +397,7 @@
     ok( exists $files->{bar},         'bar included in MANIFEST' );
     ok( ! exists $files->{foobar},    'foobar excluded via mymanifest.skip' );
     ok( ! exists $files->{foo},       'foo excluded via mymanifest.skip' );
+    ok( ! exists $files->{orange},    'orange excluded via global.skip' );
     ok( ! exists $files->{'mymanifest.skip'},
         'mymanifest.skip excluded via mydefault.skip' );
     ok( ! exists $files->{'mydefault.skip'},
@@ -403,34 +407,34 @@
     for my $funky_key (@funky_keys) {
         SKIP: {
             my $funky_file = $funky_files{$funky_key};
-	    skip "'$funky_key' not created", 1 unless $funky_file;
-	    ok( ! exists $files->{$funky_file},
-		  "'$funky_file' excluded via mymanifest.skip" );
-	}
+            skip "'$funky_key' not created", 1 unless $funky_file;
+            ok( ! exists $files->{$funky_file},
+                "'$funky_file' excluded via mymanifest.skip" );
+        }
     }
 
     # tests for maniskip
     my $skipchk = maniskip();
     is ( $skipchk->('albatross'), 1,
-	'albatross excluded via MANIFEST.SKIP' );
+        'albatross excluded via MANIFEST.SKIP' );

_service:tar_scm:ExtUtils-Manifest-1.73.tar.gz/xt/author/distmeta.t -> _service:tar_scm:ExtUtils-Manifest-1.75.tar.gz/xt/author/distmeta.t Changed

_service:tar_scm:ExtUtils-Manifest-1.73.tar.gz/xt/author/portability.t -> _service:tar_scm:ExtUtils-Manifest-1.75.tar.gz/xt/author/portability.t Changed

_service:tar_scm:ExtUtils-Manifest-1.73.tar.gz/xt/release/changes_has_content.t -> _service:tar_scm:ExtUtils-Manifest-1.75.tar.gz/xt/release/changes_has_content.t Changed

Changes of Revision 9