From 2fec4a3901b15fb659e245bd0e42b72693735d62 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 28 May 2012 22:42:06 +0000 Subject: msg tweaks git-svn-id: svn://tug.org/texlive/trunk@26704 c570f23f-e606-0410-a88d-b1316a301751 --- Master/install-tl | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'Master/install-tl') 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) { -- cgit v1.2.3