From bf9e8eaa6a6cfa8a9a1ba82b6334c5f1da28f022 Mon Sep 17 00:00:00 2001
From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Sat, 7 Sep 1996 03:12:01 +0000
Subject: Fix typo $Config{'has_sockets'} ought to be $Config{'d_socket'};

---
 utils/perlbug.PL | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index 9527025aac..f1363722d9 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;
-- 
cgit v1.2.1