r3331 - in /packages/libemail-localdelivery-perl/trunk: Changes
LocalDelivery.pm LocalDelivery/Maildir.pm LocalDelivery/Mbox.pm MANIFEST
META.yml README debian/changelog t/.cvsignore t/mbox.t t/pod-coverage.t
t/pod.t t/test_mbox
ntyni-guest at users.alioth.debian.org
ntyni-guest at users.alioth.debian.org
Thu Jul 27 18:55:14 UTC 2006
Author: ntyni-guest
Date: Thu Jul 27 18:55:12 2006
New Revision: 3331
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=3331
Log:
svn-upgrade to 0.21
Added:
packages/libemail-localdelivery-perl/trunk/t/pod-coverage.t
- copied unchanged from r3330, packages/libemail-localdelivery-perl/branches/upstream/current/t/pod-coverage.t
packages/libemail-localdelivery-perl/trunk/t/pod.t
- copied unchanged from r3330, packages/libemail-localdelivery-perl/branches/upstream/current/t/pod.t
Removed:
packages/libemail-localdelivery-perl/trunk/t/.cvsignore
Modified:
packages/libemail-localdelivery-perl/trunk/Changes
packages/libemail-localdelivery-perl/trunk/LocalDelivery.pm
packages/libemail-localdelivery-perl/trunk/LocalDelivery/Maildir.pm
packages/libemail-localdelivery-perl/trunk/LocalDelivery/Mbox.pm
packages/libemail-localdelivery-perl/trunk/MANIFEST
packages/libemail-localdelivery-perl/trunk/META.yml
packages/libemail-localdelivery-perl/trunk/README
packages/libemail-localdelivery-perl/trunk/debian/changelog
packages/libemail-localdelivery-perl/trunk/t/mbox.t
packages/libemail-localdelivery-perl/trunk/t/test_mbox
Modified: packages/libemail-localdelivery-perl/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-localdelivery-perl/trunk/Changes?rev=3331&op=diff
==============================================================================
--- packages/libemail-localdelivery-perl/trunk/Changes (original)
+++ packages/libemail-localdelivery-perl/trunk/Changes Thu Jul 27 18:55:12 2006
@@ -1,3 +1,13 @@
+0.21 2006-07-21
+
+ - update PEP URL
+
+0.20 2006-07-07
+
+ - try to be compat with perl 5.005
+ - don't lose mail when delivering to maildirs! (check print() status)
+ - avoid topicalization clashes during mailbox name/type matching
+
0.09 2004-12-17
- New author.
Modified: packages/libemail-localdelivery-perl/trunk/LocalDelivery.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-localdelivery-perl/trunk/LocalDelivery.pm?rev=3331&op=diff
==============================================================================
--- packages/libemail-localdelivery-perl/trunk/LocalDelivery.pm (original)
+++ packages/libemail-localdelivery-perl/trunk/LocalDelivery.pm Thu Jul 27 18:55:12 2006
@@ -1,11 +1,12 @@
package Email::LocalDelivery;
-# $Id: LocalDelivery.pm,v 1.16 2004/12/17 17:16:10 cwest Exp $
use strict;
use File::Path::Expand qw(expand_filename);
use Email::FolderType qw(folder_type);
use Carp;
-our $VERSION = '0.09';
+
+use vars qw($VERSION);
+$VERSION = '0.21';
=head1 NAME
@@ -46,8 +47,12 @@
}
my %to_deliver;
- push @{$to_deliver{folder_type($_)}}, $_
- for map { expand_filename $_ } @boxes;
+
+ for my $box (@boxes) {
+ $box = expand_filename($box);
+ push @{$to_deliver{folder_type($box)}}, $box;
+ }
+
my @rv;
for my $method (keys %to_deliver) {
eval "require Email::LocalDelivery::$method";
@@ -63,6 +68,12 @@
__END__
+=head1 PERL EMAIL PROJECT
+
+This module is maintained by the Perl Email Project
+
+ L<http://emailproject.perl.org/wiki/Email::LocalDelivery>
+
=head1 COPYRIGHT AND LICENSE
Copyright 2003 by Simon Cozens
@@ -72,8 +83,4 @@
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
-=head1 CONTACT
-
-http://pep.kwiki.org
-
=cut
Modified: packages/libemail-localdelivery-perl/trunk/LocalDelivery/Maildir.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-localdelivery-perl/trunk/LocalDelivery/Maildir.pm?rev=3331&op=diff
==============================================================================
--- packages/libemail-localdelivery-perl/trunk/LocalDelivery/Maildir.pm (original)
+++ packages/libemail-localdelivery-perl/trunk/LocalDelivery/Maildir.pm Thu Jul 27 18:55:12 2006
@@ -2,8 +2,10 @@
package Email::LocalDelivery::Maildir;
use Email::Simple;
use File::Path;
+use Symbol qw(gensym);
-our $VERSION = "1.06";
+use vars qw($VERSION);
+$VERSION = "1.10";
my $maildir_time = 0;
my $maildir_counter = 0;
use Sys::Hostname; (my $HOSTNAME = hostname) =~ s/\..*//;
@@ -81,8 +83,9 @@
sub write_message {
my ($class, $mail, $file) = @_;
- open my $fh, ">$file" or return;
- print $fh $mail->as_string;
+ my $fh = gensym;
+ open $fh, ">$file" or return;
+ print $fh $mail->as_string or return;
return close $fh;
}
Modified: packages/libemail-localdelivery-perl/trunk/LocalDelivery/Mbox.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-localdelivery-perl/trunk/LocalDelivery/Mbox.pm?rev=3331&op=diff
==============================================================================
--- packages/libemail-localdelivery-perl/trunk/LocalDelivery/Mbox.pm (original)
+++ packages/libemail-localdelivery-perl/trunk/LocalDelivery/Mbox.pm Thu Jul 27 18:55:12 2006
@@ -3,8 +3,10 @@
use File::Basename;
use Email::Simple;
use Fcntl ':flock';
+use Symbol qw(gensym);
-our $VERSION = "1.07";
+use vars qw($VERSION);
+$VERSION = "1.10";
sub deliver {
my ($class, $mail, @files) = @_;
@@ -26,7 +28,8 @@
my $dir = dirname($file);
return if ! -d $dir and not mkpath($dir);
- open my $fh, ">> $file" or return;
+ my $fh = gensym;
+ open $fh, ">> $file" or return;
$class->getlock($fh) || return;
seek $fh, 0, 2;
return $fh;
Modified: packages/libemail-localdelivery-perl/trunk/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-localdelivery-perl/trunk/MANIFEST?rev=3331&op=diff
==============================================================================
--- packages/libemail-localdelivery-perl/trunk/MANIFEST (original)
+++ packages/libemail-localdelivery-perl/trunk/MANIFEST Thu Jul 27 18:55:12 2006
@@ -6,7 +6,8 @@
MANIFEST This list of files
META.yml
README
-t/.cvsignore
t/00compile.t
t/mbox.t
+t/pod.t
+t/pod-coverage.t
t/test_mbox
Modified: packages/libemail-localdelivery-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-localdelivery-perl/trunk/META.yml?rev=3331&op=diff
==============================================================================
--- packages/libemail-localdelivery-perl/trunk/META.yml (original)
+++ packages/libemail-localdelivery-perl/trunk/META.yml Thu Jul 27 18:55:12 2006
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Email-LocalDelivery
-version: 0.09
+version: 0.21
version_from: LocalDelivery.pm
installdirs: site
requires:
@@ -11,4 +11,4 @@
Test::More: 0.47
distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.24
+generated_by: ExtUtils::MakeMaker version 6.30
Modified: packages/libemail-localdelivery-perl/trunk/README
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-localdelivery-perl/trunk/README?rev=3331&op=diff
==============================================================================
--- packages/libemail-localdelivery-perl/trunk/README (original)
+++ packages/libemail-localdelivery-perl/trunk/README Thu Jul 27 18:55:12 2006
@@ -15,6 +15,12 @@
If no boxes are given, it assumes the standard Unix mailbox. (Either
$ENV{MAIL}, /var/spool/mail/you, /var/mail/you, or ~you/Maildir/)
+PERL EMAIL PROJECT
+
+This module is maintained by the Perl Email Project
+
+ http://emailproject.perl.org/wiki/Email::LocalDelivery
+
COPYRIGHT AND LICENSE
Copyright 2003 by Simon Cozens
@@ -22,7 +28,3 @@
This library is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
-
-CONTACT
- http://pep.kwiki.org
-
Modified: packages/libemail-localdelivery-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-localdelivery-perl/trunk/debian/changelog?rev=3331&op=diff
==============================================================================
--- packages/libemail-localdelivery-perl/trunk/debian/changelog (original)
+++ packages/libemail-localdelivery-perl/trunk/debian/changelog Thu Jul 27 18:55:12 2006
@@ -1,3 +1,9 @@
+libemail-localdelivery-perl (0.21-1) UNRELEASED; urgency=low
+
+ * (NOT RELEASED YET) New upstream release
+
+ -- Niko Tyni <ntyni at iki.fi> Thu, 27 Jul 2006 21:54:57 +0300
+
libemail-localdelivery-perl (0.09-1) unstable; urgency=low
* Initial Release. (Closes: #194548)
Modified: packages/libemail-localdelivery-perl/trunk/t/mbox.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-localdelivery-perl/trunk/t/mbox.t?rev=3331&op=diff
==============================================================================
--- packages/libemail-localdelivery-perl/trunk/t/mbox.t (original)
+++ packages/libemail-localdelivery-perl/trunk/t/mbox.t Thu Jul 27 18:55:12 2006
@@ -18,7 +18,9 @@
is( $delivered[0], $name, "delivered to the right location" );
ok( -e $name, "file exists" );
-open my $fh, $name or die "couldn't open $name: $!";
+use Symbol qw(gensym);
+my $fh = gensym;
+open $fh, $name or die "couldn't open $name: $!";
my $line = <$fh>;
like( $line, qr/^From /, "added a From_ line" );
Modified: packages/libemail-localdelivery-perl/trunk/t/test_mbox
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-localdelivery-perl/trunk/t/test_mbox?rev=3331&op=diff
==============================================================================
--- packages/libemail-localdelivery-perl/trunk/t/test_mbox (original)
+++ packages/libemail-localdelivery-perl/trunk/t/test_mbox Thu Jul 27 18:55:12 2006
@@ -1,5 +1,0 @@
-From brane at body Fri Dec 17 12:11:24 2004
-To: foot at body
-From: brane at body
-
->From here I can see the pub.
More information about the Pkg-perl-cvs-commits
mailing list