r4064 - in /packages/libemail-simple-perl/trunk: Changes MANIFEST META.yml debian/changelog lib/Email/Simple.pm t/header-many.t t/header-prepend.t

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Fri Oct 6 20:14:38 UTC 2006


Author: gregoa-guest
Date: Fri Oct  6 20:14:37 2006
New Revision: 4064

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=4064
Log:
* New upstream release.

Added:
    packages/libemail-simple-perl/trunk/t/header-many.t
      - copied unchanged from r4063, packages/libemail-simple-perl/branches/upstream/current/t/header-many.t
    packages/libemail-simple-perl/trunk/t/header-prepend.t
      - copied unchanged from r4063, packages/libemail-simple-perl/branches/upstream/current/t/header-prepend.t
Modified:
    packages/libemail-simple-perl/trunk/Changes
    packages/libemail-simple-perl/trunk/MANIFEST
    packages/libemail-simple-perl/trunk/META.yml
    packages/libemail-simple-perl/trunk/debian/changelog
    packages/libemail-simple-perl/trunk/lib/Email/Simple.pm

Modified: packages/libemail-simple-perl/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-simple-perl/trunk/Changes?rev=4064&op=diff
==============================================================================
--- packages/libemail-simple-perl/trunk/Changes (original)
+++ packages/libemail-simple-perl/trunk/Changes Fri Oct  6 20:14:37 2006
@@ -1,4 +1,12 @@
 Revision history for Perl extension Email::Simple.
+
+1.992    2006-10-05
+
+  - fix a number of bugs when setting multiple headers, which would often
+    refuse to set more values than were currently present
+  - added a test for prepending (rather than appending) headers; while E::S
+    does not yet support this, the header behavior will be easier to replace in
+    future versions, and this is a forward-looking test
 
 1.990    2006-09-05
 

Modified: packages/libemail-simple-perl/trunk/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-simple-perl/trunk/MANIFEST?rev=4064&op=diff
==============================================================================
--- packages/libemail-simple-perl/trunk/MANIFEST (original)
+++ packages/libemail-simple-perl/trunk/MANIFEST Fri Oct  6 20:14:37 2006
@@ -1,16 +1,18 @@
 Changes
+lib/Email/Simple.pm
+lib/Email/Simple/Headers.pm
 Makefile.PL
 MANIFEST
 README
-lib/Email/Simple.pm
-lib/Email/Simple/Headers.pm
 t/badly-folded.t
 t/basic.t
 t/folding.t
 t/header-case.t
 t/header-junk.t
+t/header-many.t
 t/header-names.t
 t/header-pairs.t
+t/header-prepend.t
 t/long-msgid.t
 t/many-repeats.t
 t/no-body.t

Modified: packages/libemail-simple-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-simple-perl/trunk/META.yml?rev=4064&op=diff
==============================================================================
--- packages/libemail-simple-perl/trunk/META.yml (original)
+++ packages/libemail-simple-perl/trunk/META.yml Fri Oct  6 20:14:37 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-Simple
-version:      1.990
+version:      1.992
 version_from: lib/Email/Simple.pm
 installdirs:  site
 requires:

Modified: packages/libemail-simple-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-simple-perl/trunk/debian/changelog?rev=4064&op=diff
==============================================================================
--- packages/libemail-simple-perl/trunk/debian/changelog (original)
+++ packages/libemail-simple-perl/trunk/debian/changelog Fri Oct  6 20:14:37 2006
@@ -1,3 +1,9 @@
+libemail-simple-perl (1.992-1) unstable; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at>  Fri,  6 Oct 2006 22:13:26 +0200
+
 libemail-simple-perl (1.990-1) unstable; urgency=low
 
   * New upstream release.

Modified: packages/libemail-simple-perl/trunk/lib/Email/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-simple-perl/trunk/lib/Email/Simple.pm?rev=4064&op=diff
==============================================================================
--- packages/libemail-simple-perl/trunk/lib/Email/Simple.pm (original)
+++ packages/libemail-simple-perl/trunk/lib/Email/Simple.pm Fri Oct  6 20:14:37 2006
@@ -5,7 +5,7 @@
 use Carp;
 
 use vars qw($VERSION $GROUCHY);
-$VERSION = '1.990';
+$VERSION = '1.992';
 
 my $crlf = qr/\x0a\x0d|\x0d\x0a|\x0a|\x0d/; # We are liberal in what we accept.
 
@@ -158,6 +158,16 @@
         $field = $self->{header_names}->{lc $field};
     }
 
+    my @loci = grep { lc $self->{order}[$_] eq lc $field }
+               0 ..  $#{$self->{order}};
+
+    if (@loci > @data) {
+      my $overage = @loci - @data;
+      splice @{$self->{order}}, $_, 1 for reverse @loci[ -$overage, $#loci ];
+    } elsif (@data > @loci) {
+      push @{$self->{order}}, ($field) x (@data - @loci);
+    }
+
     $self->{head}->{$field} = [ @data ];
     return wantarray ? @data : $data[0];
 }
@@ -301,7 +311,7 @@
 
 This module is maintained by the Perl Email Project
 
-  L<http://emailproject.perl.org/wiki/Email::Simple>
+L<http://emailproject.perl.org/wiki/Email::Simple>
 
 =head1 COPYRIGHT AND LICENSE
 




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