This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
document hostname(@args) deprecation
[perl5.git] / ext / Sys-Hostname / Hostname.pm
index d53410e..8b5dde1 100644 (file)
@@ -16,7 +16,7 @@ use warnings ();
 our $host;
 
 BEGIN {
-    $VERSION = '1.21';
+    $VERSION = '1.22';
     {
        local $SIG{__DIE__};
        eval {
@@ -29,7 +29,7 @@ BEGIN {
 
 
 sub hostname {
-  @_ and warnings::warnif("deprecated", "hostname() doesn't accept any arguments");
+  @_ 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;