r62235 - in /trunk/libemail-address-perl: Changes META.yml README debian/changelog lib/Email/Address.pm
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Tue Aug 31 11:17:35 UTC 2010
Author: ansgar-guest
Date: Tue Aug 31 11:17:26 2010
New Revision: 62235
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=62235
Log:
IGNORE-VERSION: 1.891-1
Changes for perl 5.8
Modified:
trunk/libemail-address-perl/Changes
trunk/libemail-address-perl/META.yml
trunk/libemail-address-perl/README
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/pkg-perl/trunk/libemail-address-perl/Changes?rev=62235&op=diff
==============================================================================
--- trunk/libemail-address-perl/Changes (original)
+++ trunk/libemail-address-perl/Changes Tue Aug 31 11:17:26 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: trunk/libemail-address-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-address-perl/META.yml?rev=62235&op=diff
==============================================================================
--- trunk/libemail-address-perl/META.yml (original)
+++ trunk/libemail-address-perl/META.yml Tue Aug 31 11:17:26 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: trunk/libemail-address-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-address-perl/README?rev=62235&op=diff
==============================================================================
--- trunk/libemail-address-perl/README (original)
+++ trunk/libemail-address-perl/README Tue Aug 31 11:17:26 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: trunk/libemail-address-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-address-perl/debian/changelog?rev=62235&op=diff
==============================================================================
--- trunk/libemail-address-perl/debian/changelog (original)
+++ trunk/libemail-address-perl/debian/changelog Tue Aug 31 11:17:26 2010
@@ -1,3 +1,10 @@
+libemail-address-perl (1.891-1) UNRELEASED; urgency=low
+
+ IGNORE-VERSION: 1.891-1
+ Changes for perl 5.8
+
+ -- Ansgar Burchardt <ansgar at 43-1.org> Tue, 31 Aug 2010 20:15:41 +0900
+
libemail-address-perl (1.890-1) unstable; urgency=low
[ gregor herrmann ]
Modified: trunk/libemail-address-perl/lib/Email/Address.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-address-perl/lib/Email/Address.pm?rev=62235&op=diff
==============================================================================
--- trunk/libemail-address-perl/lib/Email/Address.pm (original)
+++ trunk/libemail-address-perl/lib/Email/Address.pm Tue Aug 31 11:17:26 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 $_";
}
More information about the Pkg-perl-cvs-commits
mailing list