From 52f38f945926d2368125527aae0a473575e0ad42 Mon Sep 17 00:00:00 2001
From: John Peacock <jpeacock@cpan.org>
Date: Mon, 24 Jul 2006 19:10:38 +0000
Subject: [PATCH] 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
---
 plugins/domainkeys | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/plugins/domainkeys b/plugins/domainkeys
index 597c0c8..ccabf59 100644
--- a/plugins/domainkeys
+++ b/plugins/domainkeys
@@ -1,5 +1,5 @@
 sub init {
-    my ($self, %args) = @_;
+    my ($self, $qp, %args) = @_;
 
     foreach my $key ( %args ) {
 	$self->{$key} = $args{$key};