# Utility procedures
sub _errprint {
- printf('%s:%s', __FILE__, __LINE__);
+ printf(STDERR '%s:%s', __FILE__, __LINE__);
if (@_) {
- print(': ');
+ print(STDERR ': ');
foreach (@_) {
- print;
+ print(STDERR);
}
}
}
my $ex = shift;
_errprint(@_);
- print(": $!\n");
+ print(STDERR ": $!\n");
exit($ex);
}
my $ex = shift;
_errprint(@_);
- print("\n");
+ print(STDERR "\n");
exit($ex);
}
# folded header continuation
if (not defined($current)) {
- print("Malformed message, cannot parse headers.\n");
+ print(STDERR "Malformed message, cannot parse headers.\n");
return ();
}