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 <v...@users.sourceforge.net> 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 <mrmacman...@mac.com> 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 <dma...@netspace.org> # 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 <bl...@orcaware.com> 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 <v...@users.sourceforge.net> 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 <dma...@netspace.org> 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 <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 << << ------------------------------------------------------------------------------ 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 Fink-commits@lists.sourceforge.net http://news.gmane.org/gmane.os.apple.fink.cvs