r11685 - in /trunk/libemail-address-perl: Changes MANIFEST META.yml debian/changelog lib/Email/Address.pm t/quoting.t
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Wed Dec 26 17:02:08 UTC 2007
Author: gregoa-guest
Date: Wed Dec 26 17:02:08 2007
New Revision: 11685
URL: http://svn.debian.org/wsvn/?sc=1&rev=11685
Log:
New upstream release.
Added:
trunk/libemail-address-perl/t/quoting.t
- copied unchanged from r11684, branches/upstream/libemail-address-perl/current/t/quoting.t
Modified:
trunk/libemail-address-perl/Changes
trunk/libemail-address-perl/MANIFEST
trunk/libemail-address-perl/META.yml
trunk/libemail-address-perl/debian/changelog
trunk/libemail-address-perl/lib/Email/Address.pm
Modified: trunk/libemail-address-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libemail-address-perl/Changes?rev=11685&op=diff
==============================================================================
--- trunk/libemail-address-perl/Changes (original)
+++ trunk/libemail-address-perl/Changes Wed Dec 26 17:02:08 2007
@@ -1,3 +1,9 @@
+Release history for Email-Address
+
+1.889 2007-12-19
+ even if the phrase needed quoting, do not return quoted phrase from
+ the phrase method
+
1.888 2007-04-01
rt 16320 - collapse multiple whitespaces to prevent speed problem
rt 24161 - forbid backslash in dot-atom
Modified: trunk/libemail-address-perl/MANIFEST
URL: http://svn.debian.org/wsvn/trunk/libemail-address-perl/MANIFEST?rev=11685&op=diff
==============================================================================
--- trunk/libemail-address-perl/MANIFEST (original)
+++ trunk/libemail-address-perl/MANIFEST Wed Dec 26 17:02:08 2007
@@ -11,6 +11,7 @@
t/pod.t
t/pod-coverage.t
t/quote-encoded.t
+t/quoting.t
t/tests.t
LICENSE
META.yml Module meta-data (added by MakeMaker)
Modified: trunk/libemail-address-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libemail-address-perl/META.yml?rev=11685&op=diff
==============================================================================
--- trunk/libemail-address-perl/META.yml (original)
+++ trunk/libemail-address-perl/META.yml Wed Dec 26 17:02:08 2007
@@ -1,14 +1,14 @@
--- #YAML:1.0
name: Email-Address
-version: 1.888
+version: 1.889
abstract: RFC 2822 Address Parsing
license: perl
-generated_by: ExtUtils::MakeMaker version 6.32
+author:
+ - Casey West <casey at geeknest.com>
+generated_by: ExtUtils::MakeMaker version 6.42
distribution_type: module
requires:
Test::More: 0.47
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.2.html
- version: 1.2
-author:
- - Casey West <casey at geeknest.com>
+ url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ version: 1.3
Modified: trunk/libemail-address-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libemail-address-perl/debian/changelog?rev=11685&op=diff
==============================================================================
--- trunk/libemail-address-perl/debian/changelog (original)
+++ trunk/libemail-address-perl/debian/changelog Wed Dec 26 17:02:08 2007
@@ -1,3 +1,9 @@
+libemail-address-perl (1.889-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at> Wed, 26 Dec 2007 18:01:19 +0100
+
libemail-address-perl (1.888-2) unstable; urgency=low
[ Ernesto Hernández-Novich (USB) ]
Modified: trunk/libemail-address-perl/lib/Email/Address.pm
URL: http://svn.debian.org/wsvn/trunk/libemail-address-perl/lib/Email/Address.pm?rev=11685&op=diff
==============================================================================
--- trunk/libemail-address-perl/lib/Email/Address.pm (original)
+++ trunk/libemail-address-perl/lib/Email/Address.pm Wed Dec 26 17:02:08 2007
@@ -10,7 +10,7 @@
my $NOCACHE;
-$VERSION = '1.888';
+$VERSION = '1.889';
$COMMENT_NEST_LEVEL ||= 2;
$STRINGIFY ||= 'format';
$COLLAPSE_SPACES = 1 unless defined $COLLAPSE_SPACES; # who wants //=? me!
@@ -32,7 +32,7 @@
version 1.886
- $Id: /my/pep/Email-Address/trunk/lib/Email/Address.pm 31900 2007-06-23T01:25:34.344997Z rjbs $
+ $Id: Address.pm 881 2007-12-19 22:08:35Z rjbs at cpan.org $
=head1 DESCRIPTION
@@ -253,7 +253,12 @@
=cut
-sub new { bless [@_[1..4]], $_[0] }
+sub new {
+ my ($class, $phrase, $email, $comment, $orig) = @_;
+ $phrase =~ s/\A"(.+)"\z/$1/ if $phrase;
+
+ bless [ $phrase, $email, $comment, $orig ] => $class;
+}
=pod
More information about the Pkg-perl-cvs-commits
mailing list