diff options
Diffstat (limited to 'v4l/scripts')
| -rwxr-xr-x | v4l/scripts/hghead.pl | 25 |
1 files changed, 23 insertions, 2 deletions
diff --git a/v4l/scripts/hghead.pl b/v4l/scripts/hghead.pl index ddaef0767..16e566ea9 100755 --- a/v4l/scripts/hghead.pl +++ b/v4l/scripts/hghead.pl @@ -8,10 +8,10 @@ use Date::Parse; my $in = shift; my $line; my $subject; -my $from=0; my $sub_ok=0; my $init=0; my $num=0; +my $hgimport=0; my $maint_ok=0; my $noblank=1; my $maintainer_name=$ENV{CHANGE_LOG_NAME}; @@ -87,6 +87,20 @@ while ($line = <IN>) { $signed="$signed$line"; next; } + if ($line =~ m/^\# HG changeset patch/) { + $sub_ok=0; + $init=0; + $num=0; + $hgimport=0; + $maint_ok=0; + $noblank=1; + $from=""; + $body=""; + $subject=""; + $hgimport=1; + next; + } + if ($line =~ m/^Acked-by:.*/) { $signed="$signed$line"; next; @@ -96,7 +110,7 @@ while ($line = <IN>) { if ($line =~ m/Changeset:\s*(.*)\n/) { $num=$1; } - print "# $line"; +# print "# $line"; next; } @@ -105,12 +119,19 @@ while ($line = <IN>) { $line="\n"; } + if ($line =~ m/^#/) { + next; + } if ($sub_ok == 0) { $sub_ok=1; substr( $subject, 0, 1 ) = uc (substr ($subject, 0, 1)); if ($subject =~ m|V4L\/DVB\s*(.+)|) { $subject=$1; } + if ($hgimport) { + $subject=$line; + next; + } if ($line =~ m/^\n/) { next; } |