Fix typo $Config{'has_sockets'} ought to be $Config{'d_socket'};
authorPerl 5 Porters <perl5-porters@africa.nicoh.com>
Sat, 7 Sep 1996 03:12:01 +0000 (03:12 +0000)
committerAndy Dougherty <doughera@lafcol.lafayette.edu>
Sat, 7 Sep 1996 03:12:01 +0000 (03:12 +0000)
utils/perlbug.PL

index 9527025..f136372 100644 (file)
@@ -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;