diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Sys/Hostname.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Sys/Hostname.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/Sys/Hostname.pm b/Master/tlpkg/tlperl/lib/Sys/Hostname.pm index 8b5dde14457..2284e1f81cc 100644 --- a/Master/tlpkg/tlperl/lib/Sys/Hostname.pm +++ b/Master/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; |