diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2014-06-20 19:35:25 +0100 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2014-06-20 19:35:25 +0100 |
| commit | e6dc1cfebd00c34ea6133c1d09b640bfa19e677a (patch) | |
| tree | 89ef5b68a3bcc0fc1639bc0167c1b46920d8e5e8 | |
| parent | 0195d767257fbb19db2d3947dd4ce06b73a41d68 (diff) | |
| download | perl-e6dc1cfebd00c34ea6133c1d09b640bfa19e677a.tar.gz | |
Correct unintentional mistake in bump-perl-version
| -rw-r--r-- | Porting/bump-perl-version | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Porting/bump-perl-version b/Porting/bump-perl-version index 51a28a52dd..5654a573cd 100644 --- a/Porting/bump-perl-version +++ b/Porting/bump-perl-version @@ -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; |