minor cleanups

modules/util/Util/Mail/Processor.pm

@@ -61,7 +61,7 @@ sub new
     'name' => {},
     'parts' => [],    # list of MIME parts; these are again headers
   };
-  bless $HDR;
+  bless $HDR, $class;
 }
 
 # ----------------------------------------------------------------------
@@ -71,7 +71,7 @@ sub analyze_header
   my $class= shift;
   my $mail= shift;   # array of mail lines
 
-  my $HDR= &new ();
+  my $HDR= new ($class);
   # print "analyze_header: class=$class mail='$mail' HDR='$HDR'\n";
 
   map {$HDR->{$_}= undef} qw(sender);
@@ -138,7 +138,7 @@ sub parse_qf
 {
   my ($class, $qdir, $fnm)= @_;
 
-  my $HDR= &new ();
+  my $HDR= new ($class);
   local *FI;
   open (FI, "$qdir/$fnm") || return undef;
 
@@ -229,13 +229,11 @@ sub get_received
   my $obj= shift;
   my $upd= shift;
 
-  my $m;
-
   return @{$obj->{'_first_received_'}} if (exists ($obj->{'_first_received_'}));
 
   my @res= qw(? ? ? ? ? ?);
 
-  foreach $m (@{$obj->{seq}})
+  foreach my $m (@{$obj->{seq}})
   {
     if ($m->{'tag'} eq 'received')
     {
@@ -293,7 +291,6 @@ print __LINE__, " SMTP AUTH via $gate\n";
           ($gate, $trid)= ($1, $2);
         }
 
-       
         my $date= '?';
         if ($rec =~ /((Mon|Tue|Wed|Thu|Fri|Sat|Sun),[^\)]+\))/)
         {