diff options
author | Eelco Dolstra <e.dolstra@tudelft.nl> | 2006-08-04 11:45:50 +0000 |
---|---|---|
committer | Eelco Dolstra <e.dolstra@tudelft.nl> | 2006-08-04 11:45:50 +0000 |
commit | 981eff065b8c5b8833ecb81e29b57944b493be01 (patch) | |
tree | a5b0cf39d453e170e1197c334b45eda2a20f054e /scripts | |
parent | 339e6f0e1d8a8eddcaa58ceb3e7396eca9714087 (diff) | |
download | guix-981eff065b8c5b8833ecb81e29b57944b493be01.tar.gz |
* Remove the dependency on `date', use strftime instead.
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/download-using-manifests.pl.in | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/scripts/download-using-manifests.pl.in b/scripts/download-using-manifests.pl.in index 2a383e49c4..7514525261 100644 --- a/scripts/download-using-manifests.pl.in +++ b/scripts/download-using-manifests.pl.in @@ -2,7 +2,7 @@ use strict; use readmanifest; -use POSIX qw(tmpnam); +use POSIX qw(tmpnam strftime); my $manifestDir = "@localstatedir@/nix/manifests"; my $logFile = "@localstatedir@/log/nix/downloads"; @@ -27,8 +27,7 @@ END { unlink $tmpNar; unlink $tmpNar2; rmdir $tmpDir; } die unless scalar @ARGV == 1; my $targetPath = $ARGV[0]; -my $date = `date` or die; -chomp $date; +my $date = strftime ("%F %H:%M:%S UTC", gmtime (time)); print LOGFILE "$$ get $targetPath $date\n"; print "\n*** Trying to download/patch `$targetPath'\n"; |