From 14c8208f883a57ca3916e7bc2140572403dead50 Mon Sep 17 00:00:00 2001 From: Reinhard Kotucha Date: Tue, 29 Jan 2008 23:28:31 +0000 Subject: TLUtils.pm: time stamps for all systems. git-svn-id: svn://tug.org/texlive/trunk@6443 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 21 ++++++--------------- 1 file changed, 6 insertions(+), 15 deletions(-) (limited to 'Master/tlpkg/TeXLive') diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 72a69c17e1f..a042eca0f70 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -971,11 +971,8 @@ sub create_fmtutil { if ($#lines >= 0) { open(OUTFILE,">$dest") or die("Cannot open $dest for writing: $!"); - if (win32()) { - print OUTFILE "# Generated by $0 on some unknown date\n"; - } else { - print OUTFILE "# Generated by $0 on " . `date`; - } + + printf OUTFILE "# Generated by %s on %s\n", "$0", scalar localtime; print OUTFILE @lines; close(OUTFILE) || warn "close(>$dest) failed: $!"; } @@ -997,11 +994,8 @@ sub create_updmap { if ($#lines >= 0) { open(OUTFILE,">$dest") or die("Cannot open $dest for writing: $!"); - if (win32()) { - print OUTFILE "# Generated by $0 on unknown date\n"; - } else { - print OUTFILE "# Generated by $0 on " . `date`; - } + + printf OUTFILE "# Generated by %s on %s\n", "$0", scalar localtime; print OUTFILE @lines; close(OUTFILE) || warn "close(>$dest) failed: $!"; } @@ -1023,11 +1017,8 @@ sub create_language { if ($#lines >= 0) { open(OUTFILE,">$dest") or die("Cannot open $dest for writing: $!"); - if (win32()) { - print OUTFILE "% Generated by $0 on some unknown date\n"; - } else { - print OUTFILE "% Generated by $0 on " . `date`; - } + + printf OUTFILE "# Generated by %s on %s\n", "$0", scalar localtime; print OUTFILE @lines; close(OUTFILE) || warn "close(>$dest) failed: $!"; } -- cgit v1.2.3