summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Sys
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2019-03-10 21:56:14 +0000
committerKarl Berry <karl@freefriends.org>2019-03-10 21:56:14 +0000
commite0a2a718e89f9700d627f1e6a8eea8f21d2fbeb8 (patch)
tree39972f65008b0d70f306a5f976494d29411bc41e /Master/tlpkg/tlperl/lib/Sys
parentb206fdc77d81ed1600949062f08de5690a4bf66f (diff)
tl19 perl 5.28.1 for Windows, from Siep
git-svn-id: svn://tug.org/texlive/trunk@50322 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Sys')
-rw-r--r--Master/tlpkg/tlperl/lib/Sys/Hostname.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/Sys/Hostname.pm b/Master/tlpkg/tlperl/lib/Sys/Hostname.pm
index 42e9293c3fa..8b5dde14457 100644
--- a/Master/tlpkg/tlperl/lib/Sys/Hostname.pm
+++ b/Master/tlpkg/tlperl/lib/Sys/Hostname.pm
@@ -11,10 +11,12 @@ our @EXPORT = qw/ hostname /;
our $VERSION;
+use warnings ();
+
our $host;
BEGIN {
- $VERSION = '1.20';
+ $VERSION = '1.22';
{
local $SIG{__DIE__};
eval {
@@ -27,6 +29,7 @@ BEGIN {
sub hostname {
+ @_ and warnings::warnif("deprecated", "hostname() doesn't accept any arguments. This will become fatal in Perl 5.32");
# method 1 - we already know it
return $host if defined $host;