diff options
| author | Graham Barr <gbarr@pobox.com> | 1998-10-18 17:43:47 +0000 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 1998-10-18 17:43:47 +0000 |
| commit | 9c188712056931197284a2c1a8a3623d335d3f39 (patch) | |
| tree | 16a4666f1f14dca7c6e56d3d745c4e189ed664c1 | |
| parent | aab814f73e6a906df0d737fb0e649fe7470a8d29 (diff) | |
| download | perl-libnet-9c188712056931197284a2c1a8a3623d335d3f39.tar.gz | |
Net::SMTP
- DESTROY now does nothing, so any half-sent message should be aborted
| -rw-r--r-- | Net/SMTP.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Net/SMTP.pm b/Net/SMTP.pm index 6cb53ec..52f699e 100644 --- a/Net/SMTP.pm +++ b/Net/SMTP.pm @@ -16,7 +16,7 @@ use IO::Socket; use Net::Cmd; use Net::Config; -$VERSION = "2.13"; # $Id: //depot/libnet/Net/SMTP.pm#9 $ +$VERSION = "2.14"; # $Id: //depot/libnet/Net/SMTP.pm#10 $ @ISA = qw(Net::Cmd IO::Socket::INET); @@ -340,8 +340,7 @@ sub quit sub DESTROY { - my $me = shift; - defined(fileno($me)) && $me->quit +# ignore } ## |