This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Correct unintentional mistake in bump-perl-version
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 20 Jun 2014 18:35:25 +0000 (19:35 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 20 Jun 2014 18:35:25 +0000 (19:35 +0100)
Porting/bump-perl-version

index 51a28a5..5654a57 100644 (file)
@@ -223,6 +223,7 @@ my %SKIP_FILES = map { ($_ => 1) } qw(
     pp_ctl.c
 );
 my @SKIP_DIRS = qw(
+    dist
     ext
     lib
     pod
@@ -250,7 +251,7 @@ exit 0;
 
 sub do_scan {
     for my $file (@mani_files) {
-       next if grep $file =~ m{$_/}, @SKIP_DIRS;
+       next if grep $file =~ m{^$_/}, @SKIP_DIRS;
        if ($SKIP_FILES{$file}) {
            warn "(skipping $file)\n";
            next;