From bf2a940bb5ec1bd50bff144ef44931ae39b266a4 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 16 Apr 2017 22:03:46 +0000 Subject: silence perl -warnings git-svn-id: svn://tug.org/texlive/trunk@43850 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'Master/tlpkg/TeXLive') 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 -- 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); -- cgit v1.2.3