gitlog-to-changelog: fix git-log invocation
authorDmitry V. Levin <ldv@altlinux.org>
Mon, 31 Oct 2011 15:56:52 +0000 (19:56 +0400)
committerJim Meyering <meyering@redhat.com>
Mon, 31 Oct 2011 16:06:38 +0000 (17:06 +0100)
git-log mishandles date strings before 1970-01-01 UTC, and there is
no use to specify --since=1970-01-01 by default anyway.
* build-aux/gitlog-to-changelog: By default, when no --since option
was given, do not specify explicit --since option to git-log.

ChangeLog
build-aux/gitlog-to-changelog

index a692aa9..f68a9b0 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2011-10-31  Dmitry V. Levin  <ldv@altlinux.org>
+
+       gitlog-to-changelog: fix git-log invocation.
+       git-log mishandles date strings before 1970-01-01 UTC, and there is
+       no use to specify --since=1970-01-01 by default anyway.
+       * build-aux/gitlog-to-changelog: By default, when no --since option
+       was given, do not specify explicit --since option to git-log.
+
 2011-10-30  Dmitry V. Levin  <ldv@altlinux.org>
 
        gitlog-to-changelog: new option --append-dot.
index c3a5ef3..c776313 100755 (executable)
@@ -3,7 +3,7 @@ eval '(exit $?0)' && eval 'exec perl -wS "$0" ${1+"$@"}'
     if 0;
 # Convert git log output to ChangeLog format.
 
-my $VERSION = '2011-10-31 07:45'; # UTC
+my $VERSION = '2011-10-31 16:06'; # 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
@@ -102,7 +102,7 @@ sub quoted_cmd(@)
 }
 
 {
-  my $since_date = '1970-01-01 UTC';
+  my $since_date;
   my $format_string = '%s%n%b%n';
   my $append_dot = 0;
   GetOptions
@@ -114,7 +114,10 @@ sub quoted_cmd(@)
      'append-dot' => \$append_dot,
     ) or usage 1;
 
-  my @cmd = (qw (git log --log-size), "--since=$since_date",
+  defined $since_date
+    and unshift @ARGV, "--since=$since_date";
+
+  my @cmd = (qw (git log --log-size),
              '--pretty=format:%ct  %an  <%ae>%n%n'.$format_string, @ARGV);
   open PIPE, '-|', @cmd
     or die ("$ME: failed to run `". quoted_cmd (@cmd) ."': $!\n"