diff options
author | Graham Knop <haarg@haarg.org> | 2013-12-21 18:08:12 -0500 |
---|---|---|
committer | Ricardo Signes <rjbs@cpan.org> | 2014-05-26 09:34:29 -0400 |
commit | d7d4eceb184d8fc54797d661a6d5ff9a4a7048c3 (patch) | |
tree | b1610ae852f45cd79bd28982938e6b315516e2fc | |
parent | 4224d62f75e571007d6f8144db843a7ccae64974 (diff) | |
download | perl-5.20.0.tar.gz |
skip RC tags when checking versions diffsv5.20.0
-rwxr-xr-x | Porting/cmpVERSION.pl | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/Porting/cmpVERSION.pl b/Porting/cmpVERSION.pl index 19ad52a2dd..c92fe78b34 100755 --- a/Porting/cmpVERSION.pl +++ b/Porting/cmpVERSION.pl @@ -37,10 +37,16 @@ die "$0: 'This is a Perl directory but does not look like Git working directory\ my $null = devnull(); unless (defined $tag_to_compare) { + my $check = 'HEAD'; + while(1) { + $check = `git describe --abbrev=0 $check 2>$null`; + chomp $check; + last unless $check =~ /-RC/; + $check .= '^'; + } + $tag_to_compare = $check; # Thanks to David Golden for this suggestion. - $tag_to_compare = `git describe --abbrev=0 2>$null`; - chomp $tag_to_compare; } unless (length $tag_to_compare) { |