diff options
| -rwxr-xr-x | log2changes.pl | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/log2changes.pl b/log2changes.pl index 02ab2cdc9..dbdc69764 100755 --- a/log2changes.pl +++ b/log2changes.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl -# git log --pretty=fuller --no-color --date=short --decorate +# git log --pretty=fuller --no-color --date=short --decorate=full my @mname = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec' ); @@ -32,7 +32,7 @@ while(<STDIN>) { if($l =~/^commit ([[:xdigit:]]*) ?(.*)/) { $co = $1; my $ref = $2; - if ($ref =~ /refs\/tags\/curl-(.*)\)/) { + if ($ref =~ /refs\/tags\/curl-([0-9_]*)/) { $tag = $1; $tag =~ tr/_/./; } else { @@ -50,16 +50,17 @@ while(<STDIN>) { } elsif($l =~ /^( )(.*)/) { my $extra; + if ($tag) { + # Version entries have a special format + print "\nVersion " . $tag." ($date)\n"; + $oldc = ""; + } if($a ne $c) { $extra=sprintf("\n- [%s brought this change]\n\n ", $a); } else { $extra="\n- "; } - if ($tag) { - # Version entries have a special format - $c = "Version " . $tag; - } if($co ne $oldco) { if($c ne $oldc) { print "\n$c ($date)$extra"; |