perl5.002beta3
[perl.git] / t / lib / socket.t
old mode 100644 (file)
new mode 100755 (executable)
index e63c43a..14c7609
@@ -4,7 +4,8 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib' if -d '../lib';
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bSocket\b/ && $Config{'osname'} ne 'VMS') {
+    if ($Config{'extensions'} !~ /\bSocket\b/ && 
+        !(($Config{'osname'} eq 'VMS') && $Config{d_has_socket})) {
        print "1..0\n";
        exit 0;
     }