diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 21 |
1 files changed, 6 insertions, 15 deletions
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: $!"; } |