[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