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]

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