diff options
| author | Karl Berry <karl@freefriends.org> | 2017-04-16 22:03:46 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2017-04-16 22:03:46 +0000 |
| commit | bf2a940bb5ec1bd50bff144ef44931ae39b266a4 (patch) | |
| tree | 428b8f31114e166b382ae00f402c58809ad62bb5 | |
| parent | 35dd8c601e8c1b51427690d2e61c34cb6d5d6e41 (diff) | |
silence perl -warnings
git-svn-id: svn://tug.org/texlive/trunk@43850 c570f23f-e606-0410-a88d-b1316a301751
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index df4624e84ef..56ca159a83e 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -107,12 +107,11 @@ C<TeXLive::TLUtils> -- utilities used in TeX Live infrastructure 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 @@ sub platform_name { # -> 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 @@ sub setup_sys_user_mode { $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); |