Fix error printing
[manu/smtpt.git] / smtpt
diff --git a/smtpt b/smtpt
index f392ca9..1781498 100755 (executable)
--- 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();
     }