From 7fb4d67b870fea0bd11fdca762f60105e8bd6d75 Mon Sep 17 00:00:00 2001
From: Julien Danjou <julien@danjou.info>
Date: Tue, 10 Aug 2010 16:27:04 +0200
Subject: [PATCH] Fix error printing

Signed-off-by: Julien Danjou <julien@danjou.info>
---
 smtpt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/smtpt b/smtpt
index f392ca9..1781498 100755
--- a/smtpt
+++ b/smtpt
@@ -103,8 +103,8 @@ X5O!P%@AP[4{DEACTIVATED}\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H
 
 # Close properly smtp connection before exiting on error
 sub error {
-    my $mesg = $@;
-    print STDERR $mesg;
+    my $mesg = shift;
+    print STDERR "E: ", $mesg;
     if ($smtp) {
         $smtp->quit();
     }
-- 
2.11.0