diff options
Diffstat (limited to 'Master/tlpkg')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 18 | ||||
-rwxr-xr-x | Master/tlpkg/bin/generate-fmtutil | 3 |
2 files changed, 18 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index b31858dd512..cf8573e9431 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -943,7 +943,11 @@ sub create_fmtutil { if ($#lines >= 0) { open(OUTFILE,">$dest") or die("Cannot open $dest for writing: $!"); - print OUTFILE "# Generated by $0 " . `date`; + if (win32()) { + print OUTFILE "# Generated by $0 on some unknwon date\n"; + } else { + print OUTFILE "# Generated by $0 on \n" . `date`; + } print OUTFILE @lines; close(OUTFILE) || warn "close(>$dest) failed: $!"; } @@ -965,7 +969,11 @@ sub create_updmap { if ($#lines >= 0) { open(OUTFILE,">$dest") or die("Cannot open $dest for writing: $!"); - print OUTFILE "# Generated by $0 " . `date`; + if (win32()) { + print OUTFILE "# Generated by $0 on some unknwon date\n"; + } else { + print OUTFILE "# Generated by $0 on \n" . `date`; + } print OUTFILE @lines; close(OUTFILE) || warn "close(>$dest) failed: $!"; } @@ -987,7 +995,11 @@ sub create_language { if ($#lines >= 0) { open(OUTFILE,">$dest") or die("Cannot open $dest for writing: $!"); - print OUTFILE "% Generated by $0 " . `date`; + if (win32()) { + print OUTFILE "% Generated by $0 on some unknwon date\n"; + } else { + print OUTFILE "% Generated by $0 on \n" . `date`; + } print OUTFILE @lines; close(OUTFILE) || warn "close(>$dest) failed: $!"; } diff --git a/Master/tlpkg/bin/generate-fmtutil b/Master/tlpkg/bin/generate-fmtutil index 80ba9cbe0ec..79f24060e0f 100755 --- a/Master/tlpkg/bin/generate-fmtutil +++ b/Master/tlpkg/bin/generate-fmtutil @@ -42,6 +42,9 @@ sub main # get the db. my $Master = abs_path("$mydir/../.."); my $tlpdb = TeXLive::TLPDB->new ("root" => "$Master"); + if (!defined($tlpdb)) { + die "Cannot find texlive.tlpdb below $Master: $!\n"; + } $dest || ($dest = kpsewhich("TEXMFSYSVAR") . "/web2c/fmtutil.cnf"); $localconf || ($localconf = kpsewhich("TEXMFLOCAL") . "/web2c/fmtutil-local.cnf"); print "writing fmtutil.cnf data to $dest\n"; |