# Utility procedures
sub _errprint {
- printf("%s:%s", __FILE__, __LINE__);
+ printf('%s:%s', __FILE__, __LINE__);
if (@_) {
print(': ');
log_headers(%headers);
foreach $header (keys(%FILTERS)) {
- $header = lc($header);
- $contents = $headers{$header};
+ $contents = $headers{lc($header)};
if (defined($contents)) {
foreach $regex (keys(%{$FILTERS{$header}})) {