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:
parent
ca30545adc
commit
52f38f9459
@ -1,5 +1,5 @@
|
||||
sub init {
|
||||
my ($self, %args) = @_;
|
||||
my ($self, $qp, %args) = @_;
|
||||
|
||||
foreach my $key ( %args ) {
|
||||
$self->{$key} = $args{$key};
|
||||
|
Loading…
Reference in New Issue
Block a user