[svn:qpsmtpd] r656 - branches/0.3x/plugins

[email protected] Mon, 24 Jul 2006 12:10:39 -0700 (PDT)
Newsgroups perl.cvs.qpsmtpd
Message-ID <[email protected]>
Author: jpeacock
Date: Mon Jul 24 12:10:38 2006
New Revision: 656

Modified:
   branches/0.3x/plugins/domainkeys

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

Modified: branches/0.3x/plugins/domainkeys
==============================================================================
--- branches/0.3x/plugins/domainkeys	(original)
+++ branches/0.3x/plugins/domainkeys	Mon Jul 24 12:10:38 2006
@@ -1,5 +1,5 @@
 sub init {
-    my ($self, %args) = @_;
+    my ($self, $qp, %args) = @_;
 
     foreach my $key ( %args ) {
 	$self->{$key} = $args{$key};