From 931c3dbdfafee263d985b79e4f27ad694f9b4da1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ask=20Bj=C3=B8rn=20Hansen?= <ask@develooper.com>
Date: Sun, 8 Sep 2002 10:00:02 +0000
Subject: [PATCH] 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
---
 lib/Qpsmtpd/Plugin.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Qpsmtpd/Plugin.pm b/lib/Qpsmtpd/Plugin.pm
index f4788a0..b2ee1de 100644
--- 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 {