1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
diff -ru lib.old/Net/Server/Mail/ESMTP/8BITMIME.pm lib/Net/Server/Mail/ESMTP/8BITMIME.pm
--- lib.old/Net/Server/Mail/ESMTP/8BITMIME.pm Tue Jun 25 15:53:21 2002
+++ lib/Net/Server/Mail/ESMTP/8BITMIME.pm Thu Feb 19 15:27:11 2004
@@ -1,6 +1,5 @@
package Net::Server::Mail::ESMTP::8BITMIME;
-use 5.006;
use strict;
-use base qw(Net::Server::Mail::ESMTP::Extension);
+BEGIN {require Net::Server::Mail::ESMTP::Extension;@Net::Server::Mail::ESMTP::8BITMIME::ISA = ('Net::Server::Mail::ESMTP::Extension')};
diff -ru lib.old/Net/Server/Mail/ESMTP/Extension.pm lib/Net/Server/Mail/ESMTP/Extension.pm
--- lib.old/Net/Server/Mail/ESMTP/Extension.pm Thu Nov 7 18:53:51 2002
+++ lib/Net/Server/Mail/ESMTP/Extension.pm Thu Feb 19 15:27:13 2004
@@ -1,6 +1,5 @@
package Net::Server::Mail::ESMTP::Extension;
-use 5.006;
use strict;
=pod
diff -ru lib.old/Net/Server/Mail/ESMTP/PIPELINING.pm lib/Net/Server/Mail/ESMTP/PIPELINING.pm
--- lib.old/Net/Server/Mail/ESMTP/PIPELINING.pm Mon Jan 6 12:21:43 2003
+++ lib/Net/Server/Mail/ESMTP/PIPELINING.pm Thu Feb 19 15:27:16 2004
@@ -1,6 +1,5 @@
package Net::Server::Mail::ESMTP::PIPELINING;
-use 5.006;
use strict;
-use base 'Net::Server::Mail::ESMTP::Extension';
+BEGIN {require Net::Server::Mail::ESMTP::Extension;@Net::Server::Mail::ESMTP::PIPELINING::ISA = ('Net::Server::Mail::ESMTP::Extension')};
use constant GROUP_COMMANDS => [qw(RSET MAIL SEND SOML SAML RCPT)];
diff -ru lib.old/Net/Server/Mail/ESMTP.pm lib/Net/Server/Mail/ESMTP.pm
--- lib.old/Net/Server/Mail/ESMTP.pm Sun Apr 6 17:33:02 2003
+++ lib/Net/Server/Mail/ESMTP.pm Thu Feb 19 15:32:21 2004
@@ -1,9 +1,8 @@
package Net::Server::Mail::ESMTP;
-use 5.006;
use strict;
use Carp;
-use base qw(Net::Server::Mail::SMTP);
+BEGIN {require Net::Server::Mail::SMTP;@Net::Server::Mail::ESMTP::ISA = ('Net::Server::Mail::SMTP')};
=pod
diff -ru lib.old/Net/Server/Mail/LMTP.pm lib/Net/Server/Mail/LMTP.pm
--- lib.old/Net/Server/Mail/LMTP.pm Fri Mar 14 16:25:03 2003
+++ lib/Net/Server/Mail/LMTP.pm Thu Feb 19 15:26:59 2004
@@ -1,6 +1,5 @@
package Net::Server::Mail::LMTP;
-use 5.006;
use strict;
-use base qw(Net::Server::Mail::ESMTP);
+BEGIN {require Net::Server::Mail::ESMTP;@Net::Server::Mail::LMTP::ISA = ('Net::Server::Mail::ESMTP')};
diff -ru lib.old/Net/Server/Mail/SMTP.pm lib/Net/Server/Mail/SMTP.pm
--- lib.old/Net/Server/Mail/SMTP.pm Sun Apr 6 17:36:40 2003
+++ lib/Net/Server/Mail/SMTP.pm Thu Feb 19 15:32:24 2004
@@ -1,8 +1,7 @@
package Net::Server::Mail::SMTP;
-use 5.006;
use strict;
-use base 'Net::Server::Mail';
+BEGIN {require Net::Server::Mail;@Net::Server::Mail::SMTP::ISA = ('Net::Server::Mail')};
=pod
diff -ru lib.old/Net/Server/Mail.pm lib/Net/Server/Mail.pm
--- lib.old/Net/Server/Mail.pm Sun Apr 6 17:18:17 2003
+++ lib/Net/Server/Mail.pm Thu Feb 19 15:50:38 2004
@@ -1,6 +1,5 @@
package Net::Server::Mail;
-use 5.006;
use strict;
use Sys::Hostname;
use IO::Select;
@@ -500,7 +499,7 @@
else
{
next unless defined;
- my $rv = $self->{process_operation}($self, $_);
+ my $rv = $self->{process_operation}->($self, $_);
# if $rv is defined, we have to close the connection
return $rv if defined $rv;
}
@@ -518,7 +517,7 @@
}
else
{
- return $self->{process_operation}($self, $operation);
+ return $self->{process_operation}->($self, $operation);
}
}
|
