Fixes for meet current Perl

--- ./Mail/Folder.pm	2006-07-02 02:04:43 +0400
+++ ./Mail/Folder.pm	2006-07-02 02:36:01 +0400
@@ -413,7 +413,7 @@
 If C<parserobject> is specified it will be used instead of an
 internally created parser object.  The parser object is expected to a
 class instance and a subcless (however far removed) of
-C<MIME::ParserBase>.
+C<MIME::Parser>.
 
 Options are specified as hash items using key and value pairs.
 
@@ -441,8 +441,8 @@
   my %options = @_;
   
   $parser ||= new MIME::Parser or return undef;
-  croak "$parser isn't a subclass of MIME::ParserBase"
-    unless $parser->isa('MIME::ParserBase');
+  croak "$parser isn't a subclass of MIME::Parser"
+    unless $parser->isa('MIME::Parser');
   
   my $file = $self->get_message_file($msg) or return undef;
   
--- ./Mail/Folder/Emaul.pm	2006-07-02 02:04:43 +0400
+++ ./Mail/Folder/Emaul.pm	2006-07-02 02:36:01 +0400
@@ -499,7 +499,7 @@
 	  or carp "link return: $!\n";
 	my @statary = stat($lockfile);
 	unlink $lockfile;
-	if (!defined(@statary) || $statary[3] != 2) { # failed to link?
+	if (! @statary || $statary[3] != 2) { # failed to link?
 	  goto RETRY;
 	}
       }
--- ./Mail/Folder/Mbox.pm	2006-07-02 02:04:43 +0400
+++ ./Mail/Folder/Mbox.pm	2006-07-02 02:36:01 +0400
@@ -779,7 +779,7 @@
 	    or carp "link return: $!\n";
 	  my @statary = stat($lockfile);
 	  unlink $lockfile;
-	  if (!defined(@statary) || $statary[3] != 2) { # failed to link?
+	  if (! @statary || $statary[3] != 2) { # failed to link?
 	    goto RETRY;
 	  }
 	}
--- ./t/maildir/12_refile.t	2006-07-02 02:04:45 +0400
+++ ./t/maildir/12_refile.t	2006-07-02 02:36:02 +0400
@@ -18,9 +18,9 @@
 
 okay_if(11, $folder = new Mail::Folder('maildir', full_folder()));
 okay_if(12, $folder->qty == 3);
-$message = $folder->get_header(1);
-okay_if(13, $message->get('subject') eq "greeble\n");
 $message = $folder->get_header(2);
+okay_if(13, $message->get('subject') eq "greeble\n");
+$message = $folder->get_header(1);
 okay_if(14, $message->get('subject') eq "arf\n");
 $message = $folder->get_header(3);
 okay_if(15, $message->get('subject') eq "greeble\n");