diff options
| author | Karl Berry <karl@freefriends.org> | 2012-05-28 22:42:06 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2012-05-28 22:42:06 +0000 |
| commit | 2fec4a3901b15fb659e245bd0e42b72693735d62 (patch) | |
| tree | a355ff74f8611aa1214da0c8e70de8ad4f93eb59 /Master | |
| parent | 20047199dc8f60ec9a2c64df7dbe31218d3dbda0 (diff) | |
msg tweaks
git-svn-id: svn://tug.org/texlive/trunk@26704 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
| -rwxr-xr-x | Master/install-tl | 13 |
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) { |