diff options
author | Norbert Preining <norbert@preining.info> | 2021-04-02 03:20:54 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2021-04-02 03:20:54 +0000 |
commit | 3f173002d4a4a84e7d1fa5a74755fdd00d08a9c2 (patch) | |
tree | 5ed380344702de1f9ab53b68b6c3bcd6b8458087 /systems/texlive/tlnet/tlpkg/tlperl/lib/Sys/Hostname.pm | |
parent | f78ba658b3ecd56053fe0837a4404d0c6c16a707 (diff) |
CTAN sync 202104020320
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Sys/Hostname.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/Sys/Hostname.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Sys/Hostname.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Sys/Hostname.pm index 8b5dde1445..2284e1f81c 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Sys/Hostname.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Sys/Hostname.pm @@ -16,7 +16,7 @@ use warnings (); our $host; BEGIN { - $VERSION = '1.22'; + $VERSION = '1.23'; { local $SIG{__DIE__}; eval { @@ -29,7 +29,7 @@ BEGIN { sub hostname { - @_ and warnings::warnif("deprecated", "hostname() doesn't accept any arguments. This will become fatal in Perl 5.32"); + @_ and croak("hostname() does not accepts arguments (it used to silently discard any provided)"); # method 1 - we already know it return $host if defined $host; |