work with perl 5.5.3

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@75 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2002-09-20 18:55:20 +00:00
parent eed27e5fb1
commit 8aa2bac088

View File

@ -1,6 +1,7 @@
package Qpsmtpd::TcpServer; package Qpsmtpd::TcpServer;
use Qpsmtpd;
@ISA = qw(Qpsmtpd);
use strict; use strict;
use base qw(Qpsmtpd);
sub start_connection { sub start_connection {
my $self = shift; my $self = shift;