clogp_authline: Break out Date field handling

Code motion.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

1 files changed, 2 insertions, 1 deletions

diff --git a/dgit b/dgit
index 122651d..fab4e7e 100755
--- a/dgit
+++ b/dgit
@@ -2182,7 +2182,8 @@ sub clogp_authline ($) {
     # are by now preceded by @ (or ").  It seems safer to punt on
     # "..." for now rather than attempting to dequote or something.
     $author =~ s#,.*##ms unless $author =~ m/"/;
-    my $date = cmdoutput qw(date), '+%s %z', qw(-d), getfield($clogp,'Date');
+    my $date = getfield($clogp,'Date');
+    my $date = cmdoutput qw(date), '+%s %z', qw(-d), $date;
     my $authline = "$author $date";
     $authline =~ m/$git_authline_re/o or
 	fail f_ "unexpected commit author line format \`%s'".