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