[SCM] Debian packaging of libemail-valid-perl branch, master, updated. debian/0.187-1-7-gcf7b0a6
Salvatore Bonaccorso
carnil at debian.org
Wed Mar 14 20:15:17 UTC 2012
The following commit has been merged in the master branch:
commit 3c72d6c7b161f43d10aa5e768dc0a2a44b00778d
Author: Salvatore Bonaccorso <carnil at debian.org>
Date: Wed Mar 14 20:59:21 2012 +0100
Add email_valid_0-187-bug75736.patch patch
Handle correctly valid email addresses '0 at example.com'.
Thanks: Christopher Vollick <0 at psycoti.ca> for the report
Closes: #663663
diff --git a/debian/patches/email_valid_0-187-bug75736.patch b/debian/patches/email_valid_0-187-bug75736.patch
new file mode 100644
index 0000000..7d08c22
--- /dev/null
+++ b/debian/patches/email_valid_0-187-bug75736.patch
@@ -0,0 +1,49 @@
+Description: Handle valid '0 at example.com' addresses
+Origin: https://rt.cpan.org/Ticket/Attachment/1050014/548955/email_valid_0-187-bug75736.patch
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=75736
+Bug-Debian: http://bugs.debian.org/663663
+Forwarded: not-needed
+Author: Steve Bertrand <steve.bertrand at gmail.com>
+Last-Update: 2012-03-14
+
+--- a/lib/Email/Valid.pm
++++ b/lib/Email/Valid.pm
+@@ -286,7 +286,7 @@
+ sub _valid_local_part {
+ my ($self, $localpart) = @_;
+
+- return 0 unless $localpart and length $localpart <= 64;
++ return 0 unless defined $localpart and length $localpart <= 64;
+
+ return 1;
+ }
+--- a/t/valid.t
++++ b/t/valid.t
+@@ -1,7 +1,7 @@
+ #!perl
+ use strict;
+
+-use Test::More tests => 31;
++use Test::More tests => 33;
+
+ BEGIN {
+ use_ok('Email::Valid');
+@@ -80,6 +80,18 @@
+ "space between @ and domain is valid",
+ );
+
++is(
++ $v->address(-address => '1 at example.com', -localpart => 1),
++ '1 at example.com',
++ "localpart in true context succeeds",
++);
++
++is(
++ $v->address(-address => '0 at example.com', -localpart => 1),
++ '0 at example.com',
++ "localpart in false context is defined (bug 75736)",
++);
++
+ ok(
+ $v->address('-dashy at example.net'),
+ 'an email can start with a dash',
diff --git a/debian/patches/series b/debian/patches/series
index cacfa0c..0781622 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
test_net.patch
+email_valid_0-187-bug75736.patch
--
Debian packaging of libemail-valid-perl
More information about the Pkg-perl-cvs-commits
mailing list