use new plugin_name function when the plugins log()

git-svn-id: https://svn.perl.org/qpsmtpd/branches/v010@49 958fd67b-6ff1-0310-b445-bb7760255be9
smtpd · Sep 8, 2002 · 931c3db · 931c3db
1 parent 4ee8b16
commit 931c3db
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/Qpsmtpd/Plugin.pm b/lib/Qpsmtpd/Plugin.pm
@@ -20,7 +20,8 @@ sub qp {
 }
 
 sub log {
-    shift->qp->log(@_);
+  my $self = shift;
+  $self->qp->log(shift, $self->plugin_name . " plugin: " . shift, @_);
 }
 
 sub transaction {