summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-08 08:48:21 +0000
committerNorbert Preining <preining@logic.at>2008-01-08 08:48:21 +0000
commit7875adfdc7e91a9b165deb0564ecfadf362a4671 (patch)
tree8b1882c7c3e61f976a216a14383bcaeea5a266d2 /Master
parent9b4cbc7eb24cbb9a06fdfc7496bac7833d8ff675 (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.pm18
-rwxr-xr-xMaster/tlpkg/bin/generate-fmtutil3
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";