From: Julien Danjou <julien@danjou.info>
Date: Tue, 10 Aug 2010 14:27:04 +0000 (+0200)
Subject: Fix error printing
X-Git-Tag: 0.2~4
X-Git-Url: http://git.home-dn.net/?p=manu%2Fsmtpt.git;a=commitdiff_plain;h=7fb4d67b870fea0bd11fdca762f60105e8bd6d75;ds=sidebyside

Fix error printing

Signed-off-by: Julien Danjou <julien@danjou.info>
---

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