r5273 - in /packages/libemail-localdelivery-perl/branches/upstream/current: Changes META.yml lib/Email/LocalDelivery.pm lib/Email/LocalDelivery/Mbox.pm

eloy at users.alioth.debian.org eloy at users.alioth.debian.org
Sun Apr 22 17:22:38 UTC 2007


Author: eloy
Date: Sun Apr 22 17:22:38 2007
New Revision: 5273

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5273
Log:
[svn-upgrade] Integrating new upstream version, libemail-localdelivery-perl (0.215)

Modified:
    packages/libemail-localdelivery-perl/branches/upstream/current/Changes
    packages/libemail-localdelivery-perl/branches/upstream/current/META.yml
    packages/libemail-localdelivery-perl/branches/upstream/current/lib/Email/LocalDelivery.pm
    packages/libemail-localdelivery-perl/branches/upstream/current/lib/Email/LocalDelivery/Mbox.pm

Modified: packages/libemail-localdelivery-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-localdelivery-perl/branches/upstream/current/Changes?rev=5273&op=diff
==============================================================================
--- packages/libemail-localdelivery-perl/branches/upstream/current/Changes (original)
+++ packages/libemail-localdelivery-perl/branches/upstream/current/Changes Sun Apr 22 17:22:38 2007
@@ -1,67 +1,64 @@
-0.214   2007-02-22
-  - use strict everywhere
+0.215     2007-04-15
+          mbox is /From / not /From\s/ (rt 26373 from Simon Law)
 
-0.213   2007-02-15
-  - avoid manging strings passed to deliver
-  - reorganize libs into ./lib
+0.214     2007-02-22
+          use strict everywhere
 
-0.212   2007-02-14
-  - fix packaging glitches
+0.213     2007-02-15
+          avoid manging strings passed to deliver
+          reorganize libs into ./lib
 
-0.211   2007-02-14
-  - St. Valentine's Day release: We love email!
-  - stop breaking the encapsulation around Email::Simple
+0.212     2007-02-14
+          fix packaging glitches
 
-0.21    2006-07-21
+0.211     2007-02-14
+          St. Valentine's Day release: We love email!
+          stop breaking the encapsulation around Email::Simple
 
-  - update PEP URL
+0.21      2006-07-21
+          update PEP URL
 
-0.20    2006-07-07
+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
 
-  - 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.
+          Allow for subclassing flexibility in Email::LocalDelivery::Mbox.
+          New contact information.
 
-0.09    2004-12-17
+0.08      Saturday 29th May, 2004
+	        Make fix_lines not be a no-op (Toby Johnson)
 
-  - New author.
-  - Allow for subclassing flexibility in Email::LocalDelivery::Mbox.
-  - New contact information.
+0.07      Friday 14th November, 2003
+	        http://rt.cpan.org/NoAuth/Bug.html?id=4394 bug caused by flawed
+	        implementation of #2480.  the test suite is woefully poor not
+	        to have caught this
 
-0.08 Saturday 29th May, 2004
-	Make fix_lines not be a no-op (Toby Johnson)
+0.06      Wednesday 29th October, 2003
+        	http://rt.cpan.org/NoAuth/Bug.html?id=2480 quoting of From_
+        	lines in bodies of messages in Mboxes
 
-0.07 Friday 14th November, 2003
-	http://rt.cpan.org/NoAuth/Bug.html?id=4394 bug caused by flawed
-	implementation of #2480.  the test suite is woefully poor not
-	to have caught this
+          http://rt.cpan.org/NoAuth/Bug.html?id=2483 expansion of ~ elements
 
-0.06 Wednesday 29th October, 2003
-	http://rt.cpan.org/NoAuth/Bug.html?id=2480 quoting of From_
-	lines in bodies of messages in Mboxes
+0.05      Thursday 24th July 2003
+	        Fix bug in ::Maildir
+	        quell warning
 
-	http://rt.cpan.org/NoAuth/Bug.html?id=2483 expansion of ~ elements
+0.04      Fri May  2 12:56:34 BST 2003
+          Handle failure to open mboxen properly
+          Insert blank line before new message in mbox.
 
-0.05 Thursday 24th July 2003
-	- Fix bug in ::Maildir
-	- quell warning
+0.03      Wednesday 16th April, 2003, just after the PAUSE indexer got in touch
+          Increment the version numbers in E::LD::{Mbox,Maildir}
 
-0.04  Fri May  2 12:56:34 BST 2003
-        - Handle failure to open mboxen properly
-        - Insert blank line before new message in mbox.
+0.02      Wednesday 16th April, 2003
+          now depends on Email::Simple and Email::FolderType
+          changes to make code -w clean
+          http://rt.cpan.org/NoAuth/Bug.html?id=2356
+          http://rt.cpan.org/NoAuth/Bug.html?id=2357
 
-0.03  Wednesday 16th April, 2003, just after the PAUSE indexer got in touch
-        - Increment the version numbers in E::LD::{Mbox,Maildir}
-
-0.02  Wednesday 16th April, 2003
-        - now depends on Email::Simple and Email::FolderType
-        - changes to make code -w clean
-        - http://rt.cpan.org/NoAuth/Bug.html?id=2356
-        - http://rt.cpan.org/NoAuth/Bug.html?id=2357
-
-0.01  Fri Feb 21 13:26:07 2003
-	- original version; created by h2xs 1.2 with options
-		-AX -n Email::LocalDelivery
-
-For full details consult:
-http://cvs.simon-cozens.org/viewcvs.cgi/Email-LocalDelivery/?cvsroot=Email
+0.01      Fri Feb 21 13:26:07 2003
+	        original version; created by h2xs 1.2 with options
+        		-AX -n Email::LocalDelivery

Modified: packages/libemail-localdelivery-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-localdelivery-perl/branches/upstream/current/META.yml?rev=5273&op=diff
==============================================================================
--- packages/libemail-localdelivery-perl/branches/upstream/current/META.yml (original)
+++ packages/libemail-localdelivery-perl/branches/upstream/current/META.yml Sun Apr 22 17:22:38 2007
@@ -1,9 +1,9 @@
 --- #YAML:1.0
 name:                Email-LocalDelivery
-version:             0.214
+version:             0.215
 abstract:            ~
 license:             perl
-generated_by:        ExtUtils::MakeMaker version 6.31
+generated_by:        ExtUtils::MakeMaker version 6.32
 distribution_type:   module
 requires:     
     Email::FolderType:             0.7

Modified: packages/libemail-localdelivery-perl/branches/upstream/current/lib/Email/LocalDelivery.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-localdelivery-perl/branches/upstream/current/lib/Email/LocalDelivery.pm?rev=5273&op=diff
==============================================================================
--- packages/libemail-localdelivery-perl/branches/upstream/current/lib/Email/LocalDelivery.pm (original)
+++ packages/libemail-localdelivery-perl/branches/upstream/current/lib/Email/LocalDelivery.pm Sun Apr 22 17:22:38 2007
@@ -6,7 +6,7 @@
 use Carp;
 
 use vars qw($VERSION);
-$VERSION = '0.214';
+$VERSION = '0.215';
 
 =head1 NAME
 

Modified: packages/libemail-localdelivery-perl/branches/upstream/current/lib/Email/LocalDelivery/Mbox.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-localdelivery-perl/branches/upstream/current/lib/Email/LocalDelivery/Mbox.pm?rev=5273&op=diff
==============================================================================
--- packages/libemail-localdelivery-perl/branches/upstream/current/lib/Email/LocalDelivery/Mbox.pm (original)
+++ packages/libemail-localdelivery-perl/branches/upstream/current/lib/Email/LocalDelivery/Mbox.pm Sun Apr 22 17:22:38 2007
@@ -8,7 +8,7 @@
 use Symbol qw(gensym);
 
 use vars qw($VERSION);
-$VERSION = "1.102";
+$VERSION = "1.103";
 
 sub deliver {
     my ($class, $mail, @files) = @_;
@@ -50,7 +50,7 @@
     my $email = Email::Simple->new($$mail_r);
 
     my $body = $email->body;
-    $body =~ s/^(From\s)/>$1/gm;
+    $body =~ s/^(From )/>$1/gm;
 
     return $email->header_obj->as_string . $email->crlf . $body;
 }
@@ -59,7 +59,7 @@
     my ($class, $mail_r) = @_;
 
     # The trivial way
-    return if $$mail_r =~ /^From\s/;
+    return if $$mail_r =~ /^From /;
 
     # The qmail way.
     return $ENV{UFLINE}.$ENV{RPLINE}.$ENV{DTLINE} if exists $ENV{UFLINE};




More information about the Pkg-perl-cvs-commits mailing list