X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=debian%2Ftarman;h=10928a356349b8230fa22b6b59a8c6e2d87fe3fc;hb=5704aeb8a496b8562f4e9c37b064758913311a7e;hp=74df4ff55c425f10f693f29688314c00e79f8744;hpb=ac123ad6ace5a2030495a3e9943a834425282d03;p=debian%2Ftar

diff --git a/debian/tarman b/debian/tarman
index 74df4ff5..10928a35 100644
--- a/debian/tarman
+++ b/debian/tarman
@@ -4,9 +4,10 @@
 #
 
 use strict;
+use POSIX qw(strftime);
 
-my $t = "".localtime(time);
-my $datestr = substr($t,4,3)." ".substr($t,8,2).", ".substr($t,20,4);
+my $t = $ENV{'BUILD_DATE'} // strftime("%a, %d %b %Y %H:%M:%S %z", localtime(time));
+my $datestr = substr($t,8,3)." ".substr($t,5,2).", ".substr($t,12,4);
 
 @ARGV=qw(src/tar.c);
 my $mode;
@@ -94,6 +95,15 @@ while (<>) {
 					$$lastoperation{'description'} .= $c3[1];
 				}
 			}
+			if (!$nflag && !/\}/) {
+				while (<>) {
+					my @extended_desc = split('"', $_);
+					$$lastoperation{'description'} .= $extended_desc[1];
+					if (/\}/) {
+						last;
+					}
+				}
+			}
 		}
 	}
 	if ($mode == 3 ) {
@@ -275,7 +285,7 @@ $command_string
 stores and extracts files from a tape or disk archive.
 .Pp
 The first argument to
-.B tar
+tar
 should be a function; either one of the letters
 .Cm $short_letters ,
 or one of the long function names.