From 208a0cd54c03207a5494c3d0a4ccb8391501b625 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ask=20Bj=C3=B8rn=20Hansen?= <ask@develooper.com>
Date: Mon, 14 Oct 2002 05:47:25 +0000
Subject: [PATCH] fix NOOP

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@88 958fd67b-6ff1-0310-b445-bb7760255be9
---
 Changes             | 6 ++++--
 lib/Qpsmtpd/SMTP.pm | 2 --
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/Changes b/Changes
index 7d1cb96..1a5bc55 100644
--- a/Changes
+++ b/Changes
@@ -1,10 +1,12 @@
 0.12-dev
- 
-  Use /usr/bin/perl instead of the non-standard /home/perl/bin/perl
+
+  Fix NOOP command with perl 5.6.
 
   Better installation instructions and error message when no plugin
   allowed or denied relaying (thanks to Lars Rander
   <lrNOSPAM@rander.dk>).
+ 
+  Use /usr/bin/perl instead of the non-standard /home/perl/bin/perl
 
 
 0.11 - 2002/10/09
diff --git a/lib/Qpsmtpd/SMTP.pm b/lib/Qpsmtpd/SMTP.pm
index df27a73..da3eeb8 100644
--- a/lib/Qpsmtpd/SMTP.pm
+++ b/lib/Qpsmtpd/SMTP.pm
@@ -231,9 +231,7 @@ sub help {
 
 sub noop {
   my $self = shift;
-  warn Data::Dumper->Dump([\$self], [qw(self)]);
   $self->respond(250, "OK");
-
 }
 
 sub vrfy {