diff options
author | Norbert Preining <preining@logic.at> | 2008-01-08 08:48:21 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-01-08 08:48:21 +0000 |
commit | 7875adfdc7e91a9b165deb0564ecfadf362a4671 (patch) | |
tree | 8b1882c7c3e61f976a216a14383bcaeea5a266d2 /Master | |
parent | 9b4cbc7eb24cbb9a06fdfc7496bac7833d8ff675 (diff) |
fixes for hanging windows, it has a stupid date program ...
git-svn-id: svn://tug.org/texlive/trunk@6137 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-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"; |