diff options
| author | Graham Barr <gbarr@pobox.com> | 2001-11-27 12:19:40 +0000 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 2001-11-27 12:19:40 +0000 |
| commit | 046d9f479f848b87ea20e41dac58fdc0e8aae470 (patch) | |
| tree | 544ea6d56e2d4ff3c989c7c5feae3ce0b9b982af /lib/Net/SMTP.pm | |
| parent | c2e23569e99e3f2337ede3f3cd0b0fb94cd04464 (diff) | |
| download | perl-046d9f479f848b87ea20e41dac58fdc0e8aae470.tar.gz | |
incorporate last minute change from libnet 1.0901-tobe
p4raw-id: //depot/perl@13306
Diffstat (limited to 'lib/Net/SMTP.pm')
| -rw-r--r-- | lib/Net/SMTP.pm | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/lib/Net/SMTP.pm b/lib/Net/SMTP.pm index 627903d08b..bae5835ee6 100644 --- a/lib/Net/SMTP.pm +++ b/lib/Net/SMTP.pm @@ -16,7 +16,7 @@ use IO::Socket; use Net::Cmd; use Net::Config; -$VERSION = "2.18"; # $Id: //depot/libnet/Net/SMTP.pm#19 $ +$VERSION = "2.19"; # $Id: //depot/libnet/Net/SMTP.pm#20 $ @ISA = qw(Net::Cmd IO::Socket::INET); @@ -120,12 +120,7 @@ sub auth { # auth(username, password) by mengwong 20011106. the only supported sub hello { my $me = shift; - my $domain = shift || - eval { - require Net::Domain; - Net::Domain::hostfqdn(); - } || - ""; + my $domain = shift || "localhost.localdomain"; my $ok = $me->_EHLO($domain); my @msg = $me->message; @@ -641,6 +636,6 @@ it under the same terms as Perl itself. =for html <hr> -I<$Id: //depot/libnet/Net/SMTP.pm#19 $> +I<$Id: //depot/libnet/Net/SMTP.pm#20 $> =cut |