regcomp.c: Fix wrong comment

[perl5.git] / ext / Sys-Hostname / Hostname.xs

diff --git a/ext/Sys-Hostname/Hostname.xs b/ext/Sys-Hostname/Hostname.xs
index 3ec72f7..c75bbce 100644 (file)
--- a/ext/Sys-Hostname/Hostname.xs
+++ b/ext/Sys-Hostname/Hostname.xs
@@ -1,3 +1,5 @@
+#define PERL_NO_GET_CONTEXT
+
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
@@ -11,18 +13,12 @@
 #  define MAXHOSTNAMELEN       256
 #endif
 
-/* swiped from POSIX.xs */
-#if defined(__VMS) && !defined(__POSIX_SOURCE)
-#  if ((__VMS_VER >= 70000000) && (__DECC_VER >= 50200000)) || (__CRTL_VER >= 70000000)
-#    include <utsname.h>
-#  endif
-#endif
-
 #ifdef I_SYSUTSNAME
 #  include <sys/utsname.h>
 #endif
 
 MODULE = Sys::Hostname         PACKAGE = Sys::Hostname
+PROTOTYPES: DISABLE
 
 void
 ghname()