summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-05-28 22:42:06 +0000
committerKarl Berry <karl@freefriends.org>2012-05-28 22:42:06 +0000
commit2fec4a3901b15fb659e245bd0e42b72693735d62 (patch)
treea355ff74f8611aa1214da0c8e70de8ad4f93eb59 /Master
parent20047199dc8f60ec9a2c64df7dbe31218d3dbda0 (diff)
msg tweaks
git-svn-id: svn://tug.org/texlive/trunk@26704 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/install-tl13
1 files changed, 8 insertions, 5 deletions
diff --git a/Master/install-tl b/Master/install-tl
index 4af12c33cd8..e0d835a40d0 100755
--- a/Master/install-tl
+++ b/Master/install-tl
@@ -339,7 +339,7 @@ if (($opt_gui ne "text") && !$opt_no_gui && ($opt_profile eq "")) {
}
eval { my $foo = Tk::MainWindow->new; $foo->destroy; };
if ($@) {
- tlwarn("perl/Tk unusable, cannot create main windows.\n");
+ tlwarn("perl/Tk unusable, cannot create main window.\n");
if (platform() eq "universal-darwin") {
tlwarn("That could be because X11 is not installed or started.\n");
}
@@ -351,7 +351,7 @@ if (($opt_gui ne "text") && !$opt_no_gui && ($opt_profile eq "")) {
if ($opt_gui eq "text") {
# we switched from GUI to non-GUI mode, tell the user and wait a bit
tlwarn("\nSwitching to text mode installer, if you want to cancel, do it now.\n");
- tlwarn("Waiting for 3 second\n");
+ tlwarn("Waiting for 3 seconds\n");
sleep(3);
}
}
@@ -1862,12 +1862,15 @@ sub update_numbers {
sub flushlog {
my $fh;
- if (open(LOG,">install-tl.log")) {
- printf "Writing install-tl.log in current working directory.\n";
+ my $logfile = "install-tl.log";
+ if (open (LOG, ">$logfile")) {
+ chomp (my $pwd = `pwd`);
+ $logfile = "$pwd/$logfile";
+ print "$0: Writing log in current directory: $logfile\n";
$fh = \*LOG;
} else {
$fh = \*STDERR;
- printf "Could not write log file, so flushing messages to stderr.\n";
+ print "$0: Could not write to $logfile, so flushing messages to stderr.\n";
}
foreach my $l (@::LOGLINES) {