aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xlog2changes.pl13
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";