r62233 - in /branches/upstream/libemail-address-perl/current: Changes META.yml README lib/Email/Address.pm

[ansgar-guest at users.alioth.debian.org]

Author: ansgar-guest
Date: Tue Aug 31 11:14:20 2010
New Revision: 62233

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=62233
Log:
[svn-upgrade] new version libemail-address-perl (1.891)

Modified:
    branches/upstream/libemail-address-perl/current/Changes
    branches/upstream/libemail-address-perl/current/META.yml
    branches/upstream/libemail-address-perl/current/README
    branches/upstream/libemail-address-perl/current/lib/Email/Address.pm

Modified: branches/upstream/libemail-address-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-address-perl/current/Changes?rev=62233&op=diff
==============================================================================
--- branches/upstream/libemail-address-perl/current/Changes (original)
+++ branches/upstream/libemail-address-perl/current/Changes Tue Aug 31 11:14:20 2010
@@ -1,4 +1,7 @@
 Release history for Email-Address
+
+1.891     2010-08-30
+          rework domainless address feature to work on perl5.8 (Alex Vandiver)
 
 1.890     2010-08-22
           allow domainless addresses (if requested) (thanks, Alex Vandiver)

Modified: branches/upstream/libemail-address-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-address-perl/current/META.yml?rev=62233&op=diff
==============================================================================
--- branches/upstream/libemail-address-perl/current/META.yml (original)
+++ branches/upstream/libemail-address-perl/current/META.yml Tue Aug 31 11:14:20 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Email-Address
-version:            1.890
+version:            1.891
 abstract:           RFC 2822 Address Parsing
 author:
     - Casey West <casey at geeknest.com>

Modified: branches/upstream/libemail-address-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-address-perl/current/README?rev=62233&op=diff
==============================================================================
--- branches/upstream/libemail-address-perl/current/README (original)
+++ branches/upstream/libemail-address-perl/current/README Tue Aug 31 11:14:20 2010
@@ -1,5 +1,5 @@
 NAME
-    Email::Address 1.890 - RFC 2822 Address Parsing and Creation
+    Email::Address 1.891 - RFC 2822 Address Parsing and Creation
 
 SYNOPSIS
       use Email::Address;

Modified: branches/upstream/libemail-address-perl/current/lib/Email/Address.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-address-perl/current/lib/Email/Address.pm?rev=62233&op=diff
==============================================================================
--- branches/upstream/libemail-address-perl/current/lib/Email/Address.pm (original)
+++ branches/upstream/libemail-address-perl/current/lib/Email/Address.pm Tue Aug 31 11:14:20 2010
@@ -7,7 +7,7 @@
 my %FORMAT_CACHE;
 my %NAME_CACHE;
 
-our $VERSION              = '1.890';
+our $VERSION              = '1.891';
 our $COMMENT_NEST_LEVEL ||= 2;
 our $STRINGIFY          ||= 'format';
 our $COLLAPSE_SPACES      = 1 unless defined $COLLAPSE_SPACES; # who wants //=? me!
@@ -27,7 +27,7 @@
 
 =head1 VERSION
 
-version 1.890
+version 1.891
 
 =head1 DESCRIPTION
 
@@ -136,7 +136,7 @@
 our $name_addr  = qr/$display_name?$angle_addr/;
 our $mailbox    = qr/(?:$name_addr|$addr_spec)/;
 
-our $addr_spec_CRE  = qr/(?|($local_part)\@($domain)|($local_part)())/;
+our $addr_spec_CRE  = qr/(?:($local_part)\@($domain)|($local_part))/;
 our $angle_addr_CRE = qr/$cfws*<$addr_spec_CRE>$cfws*/;
 our $name_addr_CRE  = qr/($display_name)?$angle_addr_CRE/;
 
@@ -240,12 +240,12 @@
 
       if (/\A$addr_spec_CRE\z/o) {
         $phrase     = '';
-        $local_part = $1;
-        $domain     = $2;
+        $local_part = defined $1 ? $1 : $3;
+        $domain     = defined $2 ? $2 : "";
       } elsif (/\A$name_addr_CRE\z/o) {
         $phrase     = defined $1 ? $1 : '';
-        $local_part = $2;
-        $domain     = $3;
+        $local_part = defined $2 ? $2 : $4;
+        $domain     = defined $3 ? $3 : "";
       } else {
         die "can't decypher $_";
       }