This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Sys/Hostname.xs: add prototyping behaviour
authorDavid Mitchell <davem@iabyn.com>
Fri, 12 Dec 2014 18:24:03 +0000 (18:24 +0000)
committerDavid Mitchell <davem@iabyn.com>
Fri, 12 Dec 2014 18:34:47 +0000 (18:34 +0000)
Shut up the

    Please specify prototyping behavior for Hostname.xs (see perlxs manual)

warning by specifying the default prototyping behaviour. It defaults
to ENABLE, but I've changed it to be explicitly disabled - but it only
contains 1 function which is only used internally, and has no args, so it
doesn't really matter.

ext/Sys-Hostname/Hostname.pm
ext/Sys-Hostname/Hostname.xs

index 76c7602..42e9293 100644 (file)
@@ -14,7 +14,7 @@ our $VERSION;
 our $host;
 
 BEGIN {
-    $VERSION = '1.19';
+    $VERSION = '1.20';
     {
        local $SIG{__DIE__};
        eval {
index c1e9c60..c75bbce 100644 (file)
@@ -18,6 +18,7 @@
 #endif
 
 MODULE = Sys::Hostname         PACKAGE = Sys::Hostname
+PROTOTYPES: DISABLE
 
 void
 ghname()