From: Graham Barr <gbarr@pobox.com>
Date: Tue, 27 Nov 2001 12:19:40 +0000 (+0000)
Subject: incorporate last minute change from libnet 1.0901-tobe
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=046d9f479f848b87ea20e41dac58fdc0e8aae470;p=p5sagit%2Fp5-mst-13.2.git

incorporate last minute change from libnet 1.0901-tobe

p4raw-id: //depot/perl@13306
---

diff --git a/lib/Net/SMTP.pm b/lib/Net/SMTP.pm
index 627903d..bae5835 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