Update of /cvsroot/fink/dists/10.4/stable/main/finkinfo/10.4-EOL/libs/perlmods
In directory vz-cvs-3.sog:/tmp/cvs-serv21869
Modified Files:
io-pm.info
Added Files:
mail-folder-pm.info mail-folder-pm.patch
Log Message:
sync. w/10.!4/stable, pm586 validated on powerpc-darwin8
Index: io-pm.info
===================================================================
RCS file:
/cvsroot/fink/dists/10.4/stable/main/finkinfo/10.4-EOL/libs/perlmods/io-pm.info,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- io-pm.info 11 Jul 2011 04:08:33 -0000 1.1
+++ io-pm.info 19 Jan 2012 23:52:56 -0000 1.2
@@ -3,9 +3,9 @@
Version: 1.25
Revision: 1
Architecture: (%type_pkg[perl] = 581) powerpc, (%type_pkg[perl] = 584) powerpc
-Distribution: (%type_pkg[perl] = 581) 10.4, (%type_pkg[perl] = 584) 10.4,
(%type_pkg[perl] = 586) 10.4, (%type_pkg[perl] = 586) 10.5, (%type_pkg[perl] =
5100) 10.5, (%type_pkg[perl] = 5100) 10.6
+Distribution: (%type_pkg[perl] = 581) 10.4, (%type_pkg[perl] = 584) 10.4,
(%type_pkg[perl] = 586) 10.4, (%type_pkg[perl] = 586) 10.5, (%type_pkg[perl] =
5100) 10.5, (%type_pkg[perl] = 5100) 10.6, (%type_pkg[perl] = 5123) 10.7,
(%type_pkg[perl] = 588) 10.4, (%type_pkg[perl] = 588) 10.5, (%type_pkg[perl] =
588) 10.6
Description: IO routines for perl
-Type: perl(5.8.1 5.8.6 5.8.8 5.10.0)
+Type: perl(5.8.1 5.8.4 5.8.6 5.8.8 5.10.0 5.12.3)
License: Artistic
Maintainer: Benjamin Reed <io...@fink.raccoonfink.com>
--- NEW FILE: mail-folder-pm.patch ---
diff -Naur MailFolder-0.07/Mail/Folder/Emaul.pm
MailFolder-new/Mail/Folder/Emaul.pm
--- MailFolder-0.07/Mail/Folder/Emaul.pm Sun Apr 5 13:22:16 1998
+++ MailFolder-new/Mail/Folder/Emaul.pm Tue Dec 30 23:23:09 2003
@@ -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;
}
}
diff -Naur MailFolder-0.07/Mail/Folder/Maildir.pm
MailFolder-new/Mail/Folder/Maildir.pm
--- MailFolder-0.07/Mail/Folder/Maildir.pm Sun Apr 5 13:22:18 1998
+++ MailFolder-new/Mail/Folder/Maildir.pm Tue Dec 30 23:23:09 2003
@@ -546,7 +546,9 @@
my $dir = new DirHandle "$folder_dir/cur"
or croak "can't open $folder_dir/cur: $!";
- my @files = sort map { "cur/$_" } grep((!/^\./ &&
+ my @files = map { "cur/$_->[0]" } sort { $a->[1] <=> $b->[1] }
+ map { /^(\d+)\./; [ $_, $1 ] }
+ grep((!/^\./ &&
!/^RCS$/ &&
-f "$folder_dir/cur/$_"),
$dir->read);
@@ -554,7 +556,9 @@
if (0) {
$dir = new DirHandle "$folder_dir/new"
or croak "can't open $folder_dir/new: $!";
- push @files, sort map { "new/$_" } grep((!/^\./ &&
+ push @files, map { "cur/$_->[0]" } sort { $a->[1] <=> $b->[1] }
+ map { /^(\d+)\./; [ $_, $1 ] }
+ grep((!/^\./ &&
!/^RCS$/ &&
-f "$folder_dir/new/$_"),
$dir->read);
diff -Naur MailFolder-0.07/Mail/Folder/Mbox.pm
MailFolder-new/Mail/Folder/Mbox.pm
--- MailFolder-0.07/Mail/Folder/Mbox.pm Sun Apr 5 13:22:32 1998
+++ MailFolder-new/Mail/Folder/Mbox.pm Tue Dec 30 23:23:09 2003
@@ -544,6 +544,10 @@
my $tmpdir = $ENV{TMPDIR} ? $ENV{TMPDIR} : "/tmp";
+ if ( defined( $self->{MBOX_WorkingDir})) {
+ warn "Working dir is already set!\n";
+ }
+
$self->{MBOX_WorkingDir} = undef;
$folder_id++;
for my $i ($folder_id .. ($folder_id + 10)) {
@@ -555,6 +559,7 @@
}
croak "can't seem to be able to create a working directory\n"
unless (defined($self->{MBOX_WorkingDir}));
+
$self->set_option('DotLock', 1)
unless defined($self->get_option('DotLock'));
@@ -617,7 +622,7 @@
# the appropriate methods should have removed them already...
if ($self->{Creator} == $$) {
$self->_unlock_folder;
- $self->_clean_working_dir;
+ $self->_clean_working_dir if ( -d $self->{MBOX_WorkingDir} );
}
}
###############################################################################
@@ -733,7 +738,7 @@
# unlink(glob("$self->{MBOX_WorkingDir}/*"));
# maybe this should filter out directories, just to be safe...
my $dir = DirHandle->new($self->{MBOX_WorkingDir})
- or croak "yeep! can't read $self->{MBOX_WorkingDir} disappeared: $!\n";
+ or croak "yeep! can't read $self->{MBOX_WorkingDir}: $!\n";
for my $file ($dir->read) {
next if (($file eq '.') || ($file eq '..'));
next if (-d "$self->{MBOX_WorkingDir}/$file");
@@ -779,7 +784,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;
}
}
diff -Naur MailFolder-0.07/Mail/Folder.pm MailFolder-new/Mail/Folder.pm
--- MailFolder-0.07/Mail/Folder.pm Sun Apr 5 13:22:22 1998
+++ MailFolder-new/Mail/Folder.pm Tue Dec 30 23:24:18 2003
@@ -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;
@@ -762,7 +762,7 @@
=cut
-sub message_list { return(keys %{$_[0]->{Messages}}); }
+sub message_list { return(sort keys %{$_[0]->{Messages}}); }
=head2 qty
@@ -977,10 +977,13 @@
sub sort {
my $self = shift;
- my $sort_func_ref = shift;
+ my $user_sort_func_ref = shift;
- return sort {&$sort_func_ref($self->get_header($a),
- $self->get_header($b))} $self->message_list;
+ # this is truly disgusting. also, it works.
+ my $sort_func_ref = sub { &$user_sort_func_ref( $self->get_header( $a ),
+
$self->get_header( $b )) };
+
+ return sort $sort_func_ref $self->message_list;
}
=head2 select($func_ref)
--- NEW FILE: mail-folder-pm.info ---
Info2: <<
Package: mail-folder-pm%type_pkg[perl]
Version: 0.07
Revision: 14
Architecture: (%type_pkg[perl] = 581) powerpc, (%type_pkg[perl] = 584) powerpc
Distribution: (%type_pkg[perl] = 581) 10.4, (%type_pkg[perl] = 584) 10.4,
(%type_pkg[perl] = 586) 10.4, (%type_pkg[perl] = 586) 10.5, (%type_pkg[perl] =
5100) 10.5, (%type_pkg[perl] = 5100) 10.6, (%type_pkg[perl] = 5123) 10.7,
(%type_pkg[perl] = 588) 10.4, (%type_pkg[perl] = 588) 10.5, (%type_pkg[perl] =
588) 10.6
###
Replaces: mail-folder-pm (<= 0.07-3)
BuildDepends: fink (>= 0.24.12-1)
Depends: perl%type_pkg[perl]-core, time-date-pm, file-sync-pm%type_pkg[perl],
mime-tools-pm%type_pkg[perl]
###
Source: mirror:cpan:authors/id/K/KJ/KJOHNSON/MailFolder-%v.tar.gz
Source-MD5: 2c7439acda914402ae5f3060a67ec1da
###
Type: perl (5.8.1 5.8.4 5.8.6 5.8.8 5.10.0 5.12.3)
UpdatePOD: true
###
PatchFile: %{Ni}.patch
PatchFile-MD5: 1eb1638d607ed07df7e6ab8d663fd885
DocFiles: ANNOUNCE BUGS CREDITS NEWS MANIFEST README TODO
###
Description: Perl interface to mailboxes
###
InstallScript: <<
%{default_script}
find %i/lib -name .packlist -print0 | xargs -0 rm
mv %i/share/man %i/lib/perl5/%type_raw[perl]
<<
License: Artistic
Maintainer: Dave Vasilevsky <v...@users.sourceforge.net>
Homepage: http://search.cpan.org/dist/MailFolder
DescPackaging: <<
Thanks to patch from
http://www.waider.ie/hacks/patches/Mail::Folder.patch
<<
<<
------------------------------------------------------------------------------
Keep Your Developer Skills Current with LearnDevNow!
The most comprehensive online learning library for Microsoft developers
is just $99.99! Visual Studio, SharePoint, SQL - plus HTML5, CSS3, MVC3,
Metro Style Apps, more. Free future releases when you subscribe now!
http://p.sf.net/sfu/learndevnow-d2d
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
http://news.gmane.org/gmane.os.apple.fink.cvs
