r59224 - in /trunk/libemail-valid-perl: Changes MANIFEST META.yml debian/changelog lib/Email/Valid.pm t/resolver.t t/utf-8.t

[chrisb at users.alioth.debian.org]

Author: chrisb
Date: Sat Jun 12 11:07:48 2010
New Revision: 59224

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=59224
Log:
New upstream release

Added:
    trunk/libemail-valid-perl/t/resolver.t
      - copied unchanged from r59223, branches/upstream/libemail-valid-perl/current/t/resolver.t
    trunk/libemail-valid-perl/t/utf-8.t
      - copied unchanged from r59223, branches/upstream/libemail-valid-perl/current/t/utf-8.t
Modified:
    trunk/libemail-valid-perl/Changes
    trunk/libemail-valid-perl/MANIFEST
    trunk/libemail-valid-perl/META.yml
    trunk/libemail-valid-perl/debian/changelog
    trunk/libemail-valid-perl/lib/Email/Valid.pm

Modified: trunk/libemail-valid-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-valid-perl/Changes?rev=59224&op=diff
==============================================================================
--- trunk/libemail-valid-perl/Changes (original)
+++ trunk/libemail-valid-perl/Changes Sat Jun 12 11:07:48 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: trunk/libemail-valid-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-valid-perl/MANIFEST?rev=59224&op=diff
==============================================================================
--- trunk/libemail-valid-perl/MANIFEST (original)
+++ trunk/libemail-valid-perl/MANIFEST Sat Jun 12 11:07:48 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: trunk/libemail-valid-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-valid-perl/META.yml?rev=59224&op=diff
==============================================================================
--- trunk/libemail-valid-perl/META.yml (original)
+++ trunk/libemail-valid-perl/META.yml Sat Jun 12 11:07:48 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: trunk/libemail-valid-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-valid-perl/debian/changelog?rev=59224&op=diff
==============================================================================
--- trunk/libemail-valid-perl/debian/changelog (original)
+++ trunk/libemail-valid-perl/debian/changelog Sat Jun 12 11:07:48 2010
@@ -1,3 +1,9 @@
+libemail-valid-perl (0.184-1) UNRELEASED; urgency=low
+
+  * New upstream release
+
+ -- Chris Butler <chrisb at debian.org>  Sat, 12 Jun 2010 12:05:22 +0100
+
 libemail-valid-perl (0.182-1) unstable; urgency=low
 
   [ Brian Cassidy ]

Modified: trunk/libemail-valid-perl/lib/Email/Valid.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-valid-perl/lib/Email/Valid.pm?rev=59224&op=diff
==============================================================================
--- trunk/libemail-valid-perl/lib/Email/Valid.pm (original)
+++ trunk/libemail-valid-perl/lib/Email/Valid.pm Sat Jun 12 11:07:48 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;