Fix typo $Config{'has_sockets'} ought to be $Config{'d_socket'};

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index 9527025..f136372 100644 (file)
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -213,7 +213,7 @@ EOF
                             
                if( !$domain) {
                        $guess = "";
-               } elsif ($Is_VMS && !$::Config{'has_sockets'}) { 
+               } elsif ($Is_VMS && !$::Config{'d_socket'}) { 
                        $guess = "$domain\:\:$me";
                } else {
                        $guess = "$me\@$domain" if $domain;