Update of /cvsroot/fink/dists/10.7/stable/main/finkinfo/libs/perlmods
In directory vz-cvs-3.sog:/tmp/cvs-serv1998
Added Files:
test-data-pm.info mldbm-pm.info time-epoch-pm.info
mac-errors-pm.info memhandle-pm.info mail-folder-pm.info
mail-folder-pm.patch
Log Message:
to 10.7
--- NEW FILE: time-epoch-pm.info ---
Package: time-epoch-pm
Version: 0.02
Revision: 1
Type: perl
Description: Perl Module - convert between time epochs
License: Artistic/GPL
Maintainer: Dave Vasilevsky <[email protected]>
Source: mirror:cpan:authors/id/C/CN/CNANDOR/Time-Epoch-%v.tar.gz
Source-MD5: a4ab4f49e08005b5accc358314c08b75
UpdatePOD: True
DocFiles: Changes MANIFEST README
Homepage: http://search.cpan.org/dist/Time-Epoch
--- 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: mldbm-pm.info ---
Package: mldbm-pm
Version: 2.01
Revision: 4
Source: mirror:cpan:/authors/id/C/CH/CHAMAS/MLDBM-%v.tar.gz
Depends: freezethaw-pm
UpdatePOD: true
Type: perl
PatchScript: echo 'For licensing information, please see the end of the
perldocs for MLDBM.' > LICENSE-INFO
DocFiles: Changes README MANIFEST LICENSE-INFO
Description: Database interface package
DescDetail: <<
Interface for Data::Dumper, Storable, and FreezeThaw
<<
DescUsage: <<
If you want to use this with perl5.6.0 or you have the "perl560"
package installed, install the "storable-pm560" package if you get
errors about a missing Storable module or Storable.pm file.
<<
DescPort: <<
Installs perfectly
<<
License: Artistic
Maintainer: Kyle Moffett <[email protected]>
Homepage: http://search.cpan.org/dist/MLDBM
Source-MD5: 99550ae2cffbc0bb3eb0358631077c10
--- NEW FILE: test-data-pm.info ---
Package: test-data-pm
Version: 1.22
Revision: 1
Type: perl
Description: Check props and values of data and variables
License: Artistic/GPL
Homepage: http://search.cpan.org/dist/Test-Data/
Maintainer: Daniel Macks <[email protected]>
# Dependencies.
BuildDepends: test-builder-tester-pm
# Unpack Phase.
Source: mirror:cpan:authors/id/B/BD/BDFOY/Test-Data-%v.tar.gz
Source-MD5: a7ddba8cfb2e523d218ffd383926b580
# Install Phase.
InstallScript: <<
%{default_script}
<<
UpdatePOD: true
DocFiles: Changes LICENSE README
# Documentation.
DescDetail: <<
Test::Data provides utility functions to check properties and values of
data and variables.
<<
DescPackaging: <<
Former maintainer: Blair Zajac <[email protected]>
Package was formerly perversion varianted.
<<
--- NEW FILE: mac-errors-pm.info ---
Package: mac-errors-pm
Version: 1.14
Revision: 1
Type: perl
Description: Perl Module - constants for Mac error codes
License: Artistic/GPL
Maintainer: Dave Vasilevsky <[email protected]>
Source: mirror:cpan:authors/id/B/BD/BDFOY/Mac-Errors-%v.tar.gz
Source-MD5: f7c3bcf39040e84663903dc696cb5d9c
InfoTest: <<
TestDepends: <<
test-pod-coverage-pm,
test-pod-pm
<<
<<
UpdatePOD: True
DocFiles: Changes LICENSE README
Homepage: http://search.cpan.org/dist/Mac-Errors
--- NEW FILE: memhandle-pm.info ---
Package: memhandle-pm
Version: 0.06
Revision: 1
Type: perl
Source: mirror:cpan:authors/id/S/SC/SCR/MemHandle-%v.tar.gz
Source-MD5: da9901ae2a175e1cc98fb5e42614457f
DocFiles: Changes README
UpdatePOD: true
Description: Supply memory-based FILEHANDLE methods
License: Artistic/GPL
Maintainer: Daniel Macks <[email protected]>
Homepage: http://search.cpan.org/dist/MemHandle/
--- NEW FILE: mail-folder-pm.info ---
Info2: <<
Package: mail-folder-pm%type_pkg[perl]
Version: 0.07
Revision: 14
###
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.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 <[email protected]>
Homepage: http://search.cpan.org/dist/MailFolder
DescPackaging: <<
Thanks to patch from
http://www.waider.ie/hacks/patches/Mail::Folder.patch
<<
<<
------------------------------------------------------------------------------
EMC VNX: the world's simplest storage, starting under $10K
The only unified storage solution that offers unified management
Up to 160% more powerful than alternatives and 25% more efficient.
Guaranteed. http://p.sf.net/sfu/emc-vnx-dev2dev
_______________________________________________
Fink-commits mailing list
[email protected]
http://news.gmane.org/gmane.os.apple.fink.cvs
