diff options
| author | David Mitchell <davem@iabyn.com> | 2009-07-24 15:57:32 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2009-07-24 15:57:32 +0100 |
| commit | 8b8cdb3af135a75c41bb19ee20a85445163f4cff (patch) | |
| tree | 5b828fcc4beed4b1915eab31a5bcb016b85f0fa3 /Porting/bump-perl-version | |
| parent | dc0a62a1fb49c5436d458316262c2453e0848f7f (diff) | |
| download | perl-8b8cdb3af135a75c41bb19ee20a85445163f4cff.tar.gz | |
bump-perl-version missed "perl5.10.0" style strings
("perl-5.10.0" was matched, but without the "-", it failed)
Diffstat (limited to 'Porting/bump-perl-version')
| -rwxr-xr-x | Porting/bump-perl-version | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Porting/bump-perl-version b/Porting/bump-perl-version index 4d4df83956..c84d18d236 100755 --- a/Porting/bump-perl-version +++ b/Porting/bump-perl-version @@ -162,14 +162,14 @@ my @maps = ( ], # 5.8.9 [ - qr{\b $oldx\.$oldy\.$oldz \b}x, + qr{ $oldx\.$oldy\.$oldz \b}x, sub {"", "$newx.$newy.$newz"}, undef, ], # 5.008009 [ - qr{\b $old_decimal \b}x, + qr{ $old_decimal \b}x, sub {"", sprintf "%d.%03d%03d", $newx, $newy, $newz }, undef, ], @@ -183,6 +183,7 @@ my %SKIP_FILES = map { ($_ => 1) } qw( Changes MANIFEST Porting/how_to_write_a_perldelta.pod + Porting/bump-perl-version Porting/mergelog Porting/mergelog-tool pod.lst |