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