From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Sat, 7 Sep 1996 03:12:01 +0000 (+0000)
Subject: Fix typo $Config{'has_sockets'} ought to be $Config{'d_socket'};
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bf9e8eaa6a6cfa8a9a1ba82b6334c5f1da28f022;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;