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");