projects
/
manu
/
smtpt.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
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();
}