Tidy

diff --git a/Emesinae/MIME.pm b/Emesinae/MIME.pm
index 3be8a16da8490500949b77ab63aa4d3daf5667f2..9b949162ba35be8c27b67a18f9eb531f00f5e6b0 100644 (file)
--- a/Emesinae/MIME.pm
+++ b/Emesinae/MIME.pm
@@ -5,9 +5,8 @@ use MIME::Parser;
 use warnings;
 use strict;
 
-sub getmimeparser ($)
-{
-    my ( $tmp ) = @_;
+sub getmimeparser ($) {
+    my ($tmp) = @_;
     my $p = new MIME::Parser;
     $p->tmp_to_core(1);
     $p->output_under($tmp);

diff --git a/scripts/control.pl b/scripts/control.pl
index d1e663e2e3c695904727610a5cef75dd06eecf34..42f20e0b972fa33365d928f9c527c0ab3ca96df0 100755 (executable)
--- a/scripts/control.pl
+++ b/scripts/control.pl
@@ -42,13 +42,13 @@ sub get_mime($$) {
     my ( $fh, $tmp ) = @_;
 
     my $p = Emesinae::MIME::getmimeparser($tmp);
-    return $p->parse( $fh );
+    return $p->parse($fh);
 }
 
 our $tempdir = File::Temp::tempdir();
-our $mime = get_mime( \*M, $tempdir );
-our $head = $mime->head;
-our $body = Emesinae::MIME::getmailbody($mime)->open("r");
+our $mime    = get_mime( \*M, $tempdir );
+our $head    = $mime->head;
+our $body    = Emesinae::MIME::getmailbody($mime)->open("r");
 
 rmtree $tempdir, 0, 1;
 
@@ -158,7 +158,8 @@ sub validate_one_header ($$) {
 sub check_from_blacklist($) {
     my ($err) = @_;
 
-    return unless $head->get('from'); # validate_one_header already handled this.
+    return
+      unless $head->get('from');    # validate_one_header already handled this.
     return if not @{ $c{ControlBlacklist} };
 
     my $addrhead = Mail::Field::AddrList->extract( 'from', $head );
@@ -444,7 +445,8 @@ while (<$body>) {
     chomp();
     push @reply, "> $_";
 
-    s/#.*//g; s/\s+$//;
+    s/#.*//g;
+    s/\s+$//;
     next if (m/^$/);
 
     my $done = 0;