diff options
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) { |