summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/Sys/Hostname.pm
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2021-04-02 03:20:54 +0000
committerNorbert Preining <norbert@preining.info>2021-04-02 03:20:54 +0000
commit3f173002d4a4a84e7d1fa5a74755fdd00d08a9c2 (patch)
tree5ed380344702de1f9ab53b68b6c3bcd6b8458087 /systems/texlive/tlnet/tlpkg/tlperl/lib/Sys/Hostname.pm
parentf78ba658b3ecd56053fe0837a4404d0c6c16a707 (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.pm4
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;