r59222 - in /branches/upstream/libemail-valid-perl/current: Changes MANIFEST META.yml lib/Email/Valid.pm t/resolver.t t/utf-8.t

[chrisb at users.alioth.debian.org]

Author: chrisb
Date: Sat Jun 12 11:03:12 2010
New Revision: 59222

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=59222
Log:
[svn-upgrade] Integrating new upstream version, libemail-valid-perl (0.184)

Added:
    branches/upstream/libemail-valid-perl/current/t/resolver.t
    branches/upstream/libemail-valid-perl/current/t/utf-8.t
Modified:
    branches/upstream/libemail-valid-perl/current/Changes
    branches/upstream/libemail-valid-perl/current/MANIFEST
    branches/upstream/libemail-valid-perl/current/META.yml
    branches/upstream/libemail-valid-perl/current/lib/Email/Valid.pm

Modified: branches/upstream/libemail-valid-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-valid-perl/current/Changes?rev=59222&op=diff
==============================================================================
--- branches/upstream/libemail-valid-perl/current/Changes (original)
+++ branches/upstream/libemail-valid-perl/current/Changes Sat Jun 12 11:03:12 2010
@@ -1,4 +1,12 @@
 Revision history for Perl extension Email::Valid.
+
+0.184     2010-06-10
+          initialize Net::DNS resolver earlier
+          (address RT #56828, thanks mschout @ github)
+
+0.183_001 2009-10-05
+          reject addresses with any octets that are &128
+          (address RT #50230, thanks Adriano Ferreira and Graham Barr)
 
 0.182     2009-08-03
           skip DNS tests on machines with lying DNS

Modified: branches/upstream/libemail-valid-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-valid-perl/current/MANIFEST?rev=59222&op=diff
==============================================================================
--- branches/upstream/libemail-valid-perl/current/MANIFEST (original)
+++ branches/upstream/libemail-valid-perl/current/MANIFEST Sat Jun 12 11:03:12 2010
@@ -6,5 +6,7 @@
 t/valid.t
 t/pod.t
 t/pod-coverage.t
+t/resolver.t
+t/utf-8.t
 LICENSE
 META.yml                                 Module meta-data (added by MakeMaker)

Modified: branches/upstream/libemail-valid-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-valid-perl/current/META.yml?rev=59222&op=diff
==============================================================================
--- branches/upstream/libemail-valid-perl/current/META.yml (original)
+++ branches/upstream/libemail-valid-perl/current/META.yml Sat Jun 12 11:03:12 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Email-Valid
-version:            0.182
+version:            0.184
 abstract:           ~
 author:  []
 license:            perl
@@ -20,7 +20,7 @@
     directory:
         - t
         - inc
-generated_by:       ExtUtils::MakeMaker version 6.50
+generated_by:       ExtUtils::MakeMaker version 6.56
 meta-spec:
     url:      http://module-build.sourceforge.net/META-spec-v1.4.html
     version:  1.4

Modified: branches/upstream/libemail-valid-perl/current/lib/Email/Valid.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-valid-perl/current/lib/Email/Valid.pm?rev=59222&op=diff
==============================================================================
--- branches/upstream/libemail-valid-perl/current/lib/Email/Valid.pm (original)
+++ branches/upstream/libemail-valid-perl/current/lib/Email/Valid.pm Sat Jun 12 11:03:12 2010
@@ -11,7 +11,9 @@
 use Mail::Address;
 use File::Spec;
 
-$VERSION = '0.182';
+use bytes;
+
+$VERSION = '0.184';
 
 %AUTOLOAD = (
   fqdn     => 1,
@@ -26,6 +28,16 @@
 
 # initialize if already loaded, better in prefork mod_perl environment
 $DNS_Method = defined $Net::DNS::VERSION ? 'Net::DNS' : '';
+unless ($DNS_Method) {
+    __PACKAGE__->_select_dns_method;
+}
+
+# initialize $Resolver if necessary
+if ($DNS_Method eq 'Net::DNS') {
+    unless (defined $Resolver) {
+        $Resolver = Net::DNS::Resolver->new;
+    }
+}
 
 sub new {
   my $class   = shift;

Added: branches/upstream/libemail-valid-perl/current/t/resolver.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-valid-perl/current/t/resolver.t?rev=59222&op=file
==============================================================================
--- branches/upstream/libemail-valid-perl/current/t/resolver.t (added)
+++ branches/upstream/libemail-valid-perl/current/t/resolver.t Sat Jun 12 11:03:12 2010
@@ -1,0 +1,21 @@
+#!perl -T
+
+use strict;
+use Test::More;
+
+if (!eval { require Net::DNS; 1 }) {
+    plan skip_all => 'only relevant if Net::DNS is installed';
+}
+else {
+    plan tests => 4;
+}
+
+# not yet loaded, so resolver should be undef
+ok !defined $Email::Valid::Resolver, 'resolver is undef';
+
+# load module, which calls import(), initializing resolver
+use_ok('Email::Valid');
+
+# check resolver object
+ok defined $Email::Valid::Resolver, 'resover initialized';
+isa_ok $Email::Valid::Resolver, 'Net::DNS::Resolver';

Added: branches/upstream/libemail-valid-perl/current/t/utf-8.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-valid-perl/current/t/utf-8.t?rev=59222&op=file
==============================================================================
--- branches/upstream/libemail-valid-perl/current/t/utf-8.t (added)
+++ branches/upstream/libemail-valid-perl/current/t/utf-8.t Sat Jun 12 11:03:12 2010
@@ -1,0 +1,17 @@
+use strict;
+use warnings;
+
+use Test::More tests => 2;
+
+use Email::Valid ();
+
+ok(
+  ! Email::Valid->address("adriano-f\xE9res\@blah.com"),
+  'do not accept addr with \xE9',
+);
+
+ok(
+  ! Email::Valid->address("adriano-u\x{11F}ur\@blah.com"),
+  'do not accept addr with \x{11F}',
+);
+