X-Git-Url: http://git.home-dn.net/?p=manu%2Fsmtpt.git;a=blobdiff_plain;f=smtpt;h=17814987d02a9bddb9ca8eab6e960426d72c5ffa;hp=f392ca90030bb79f86ffb94fc9392d7c0b446590;hb=7fb4d67b870fea0bd11fdca762f60105e8bd6d75;hpb=f004e480a4128946bb0d2e96d07f9a718e0a53e1

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