texlive[43850] Master/tlpkg/TeXLive/TLUtils.pm: silence perl

[commits+karl at tug.org]

Revision: 43850
          http://tug.org/svn/texlive?view=revision&revision=43850
Author:   karl
Date:     2017-04-17 00:03:46 +0200 (Mon, 17 Apr 2017)
Log Message:
-----------
silence perl -warnings

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLUtils.pm

Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm	2017-04-16 21:18:33 UTC (rev 43849)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm	2017-04-16 22:03:46 UTC (rev 43850)
@@ -107,12 +107,11 @@
 our $PERL_SINGLE_QUOTE; # we steal code from Text::ParseWords
 use vars qw(
   $::LOGFILENAME @::LOGLINES 
-  @::debug_hook @::ddebug_hook @::dddebug_hook @::info_hook @::warn_hook
-  @::install_packages_hook
-  $::machinereadable
-  $::no_execute_actions
-  $::regenerate_all_formats
+    @::debug_hook @::ddebug_hook @::dddebug_hook @::info_hook 
+    @::install_packages_hook @::warn_hook
   $TeXLive::TLDownload::net_lib_avail
+    $::checksum_method $::gui_mode $::machinereadable $::no_execute_actions
+    $::regenerate_all_formats
 );
 
 BEGIN {
@@ -297,6 +296,9 @@
     #   -> i386-darwin    if x86
     #   -> powerpc-darwin if ppc
     #
+    # (BTW, uname -r numbers are larger by 4 than the minor version.
+    # We don't use uname numbers here.)
+    # 
     my $mactex_version = 10;  # this will change in the future.
     #
     # Most robust approach is apparently to check sw_vers (os version,
@@ -4051,7 +4053,7 @@
     $texmfvar    = $TEXMFVAR;
   } else {
     print STDERR "$prg [ERROR]: Either -user or -sys mode is required.\n" .
-      "See $TeXLive::TLConfig::SYSUSERURL for details!\n";
+      "See http://tug.org/texlive/scripts-sys-user.html for details.\n";
     exit(1);
   }
   return ($texmfconfig, $texmfvar);