This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove dead VMS code from ext/Sys-Hostname/Hostname.xs.
authorCraig A. Berry <craigberry@mac.com>
Fri, 8 Aug 2014 22:40:56 +0000 (17:40 -0500)
committerCraig A. Berry <craigberry@mac.com>
Fri, 8 Aug 2014 23:18:04 +0000 (18:18 -0500)
We haven't supported VMS versions prior to 7.0 for quite some
time now, so this code can go.

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

index 1d2e472..76c7602 100644 (file)
@@ -14,7 +14,7 @@ our $VERSION;
 our $host;
 
 BEGIN {
-    $VERSION = '1.18';
+    $VERSION = '1.19';
     {
        local $SIG{__DIE__};
        eval {
index 6e974dd..c1e9c60 100644 (file)
 #  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