Group :: Development/Perl
RPM: perl-Mail-Folder
Main Changelog Spec Patches Sources Download Gear Bugs and FR Repocop
Patch: MailFolder-0.07-alt-Perl_5.8.patch
Download
Download
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");