[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};