perl 5.003_06: utils/h2xs.PL

[p5sagit/p5-mst-13.2.git] / utils / perlbug.PL

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;