Oops! init() gets $self and $qp before any commandline arguments

git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.3x@656 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
John Peacock 2006-07-24 19:10:38 +00:00
parent ca30545adc
commit 52f38f9459

View File

@ -1,5 +1,5 @@
sub init {
my ($self, %args) = @_;
my ($self, $qp, %args) = @_;
foreach my $key ( %args ) {
$self->{$key} = $args{$key};