Change 13306: incorporate last minute change from libnet 1.0901-tobe

[Graham Barr]

Change 13306 by gbarr@monty on 2001/11/27 12:19:40

        incorporate last minute change from libnet 1.0901-tobe

Affected files ...

.... //depot/perl/lib/Net/SMTP.pm#6 edit

Differences ...

==== //depot/perl/lib/Net/SMTP.pm#6 (text) ====
Index: perl/lib/Net/SMTP.pm
--- perl/lib/Net/SMTP.pm.~1~    Tue Nov 27 05:30:05 2001
+++ perl/lib/Net/SMTP.pm        Tue Nov 27 05:30:05 2001
@@ -16,7 +16,7 @@
 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 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 @@
 
 =for html <hr>
 
-I<$Id: //depot/libnet/Net/SMTP.pm#19 $>
+I<$Id: //depot/libnet/Net/SMTP.pm#20 $>
 
 =cut
End of Patch.