diff options
| author | Jim Meyering <meyering@redhat.com> | 2012-01-18 08:53:23 +0100 |
|---|---|---|
| committer | Jim Meyering <meyering@redhat.com> | 2012-01-18 08:53:23 +0100 |
| commit | b891bc2c0bd3f9cd65fac6793160c49da813220e (patch) | |
| tree | c7724b89d2cee318e587e03be22fbb54599138f8 /build-aux/gitlog-to-changelog | |
| parent | b1028f1399dc471db8f777cec6182b5d9a456541 (diff) | |
| download | gnulib-b891bc2c0bd3f9cd65fac6793160c49da813220e.tar.gz | |
gitlog-to-changelog: don't use "no_"-prefixed variable name
* build-aux/gitlog-to-changelog (main): Use getopt's "!" attribute
to enable both --cluster and --no-cluster. Change variable name,
s/\$no_cluster/$cluster/, and reverse usage to match.
Diffstat (limited to 'build-aux/gitlog-to-changelog')
| -rwxr-xr-x | build-aux/gitlog-to-changelog | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/build-aux/gitlog-to-changelog b/build-aux/gitlog-to-changelog index 099ecdd4c5..38c6f3aaae 100755 --- a/build-aux/gitlog-to-changelog +++ b/build-aux/gitlog-to-changelog @@ -3,7 +3,7 @@ eval '(exit $?0)' && eval 'exec perl -wS "$0" ${1+"$@"}' if 0; # Convert git log output to ChangeLog format. -my $VERSION = '2012-01-18 07:44'; # UTC +my $VERSION = '2012-01-18 07:50'; # UTC # The definition above must lie within the first 8 lines in order # for the Emacs time-stamp write hook (at end) to update it. # If you change this file with Emacs, please let the write hook @@ -194,7 +194,7 @@ sub parse_amend_file($) my $format_string = '%s%n%b%n'; my $amend_file; my $append_dot = 0; - my $no_cluster = 0; + my $cluster = 1; GetOptions ( help => sub { usage 0 }, @@ -203,7 +203,7 @@ sub parse_amend_file($) 'format=s' => \$format_string, 'amend=s' => \$amend_file, 'append-dot' => \$append_dot, - 'no-cluster' => \$no_cluster, + 'cluster!' => \$cluster, ) or usage 1; @@ -312,7 +312,7 @@ sub parse_amend_file($) # would be different from the previous date/name/email/coauthors header, # or if this or the previous entry consists of two or more paragraphs, # then print the header. - if ($no_cluster + if ( ! $cluster || $date_line ne $prev_date_line || "@coauthors" ne "@prev_coauthors" || $multi_paragraph |