diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-09-07 03:12:01 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-09-07 03:12:01 +0000 |
| commit | bf9e8eaa6a6cfa8a9a1ba82b6334c5f1da28f022 (patch) | |
| tree | 5f976fffbc2f3f8877db33dd675922188b3e3b5b /utils/perlbug.PL | |
| parent | 5273d82d757306e0c7b051d69688db38786199a1 (diff) | |
| download | perl-bf9e8eaa6a6cfa8a9a1ba82b6334c5f1da28f022.tar.gz | |
Fix typo $Config{'has_sockets'} ought to be $Config{'d_socket'};
Diffstat (limited to 'utils/perlbug.PL')
| -rw-r--r-- | utils/perlbug.PL | 2 |
1 files changed, 1 insertions, 1 deletions
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; |