summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg')
-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";