r30291 - in /branches/upstream/libemail-valid-perl/current: Changes META.yml Makefile.PL lib/Email/Valid.pm t/valid.t
bricas-guest at users.alioth.debian.org
bricas-guest at users.alioth.debian.org
Fri Jan 30 14:29:56 UTC 2009
Author: bricas-guest
Date: Fri Jan 30 14:29:52 2009
New Revision: 30291
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=30291
Log:
[svn-upgrade] Integrating new upstream version, libemail-valid-perl (0.180)
Modified:
branches/upstream/libemail-valid-perl/current/Changes
branches/upstream/libemail-valid-perl/current/META.yml
branches/upstream/libemail-valid-perl/current/Makefile.PL
branches/upstream/libemail-valid-perl/current/lib/Email/Valid.pm
branches/upstream/libemail-valid-perl/current/t/valid.t
Modified: branches/upstream/libemail-valid-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-valid-perl/current/Changes?rev=30291&op=diff
==============================================================================
--- branches/upstream/libemail-valid-perl/current/Changes (original)
+++ branches/upstream/libemail-valid-perl/current/Changes Fri Jan 30 14:29:52 2009
@@ -1,4 +1,7 @@
Revision history for Perl extension Email::Valid.
+
+0.180 2009-01-16
+ add repo location to metadata
0.179 Mon Nov 27 2006
bug 23657: fix domain label regex: thanks, Nobuaki ITO!
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=30291&op=diff
==============================================================================
--- branches/upstream/libemail-valid-perl/current/META.yml (original)
+++ branches/upstream/libemail-valid-perl/current/META.yml Fri Jan 30 14:29:52 2009
@@ -1,12 +1,22 @@
--- #YAML:1.0
-name: Email-Valid
-version: 0.179
-abstract: ~
-license: perl
-generated_by: ExtUtils::MakeMaker version 6.31
-distribution_type: module
-requires:
- Mail::Address: 0
+name: Email-Valid
+version: 0.180
+abstract: ~
+author: []
+license: perl
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+requires:
+ Mail::Address: 0
+ Net::DNS: 0
+resources:
+ Repository: http://github.com/rjbs/email-valid
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.48
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.2.html
- version: 1.2
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: branches/upstream/libemail-valid-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-valid-perl/current/Makefile.PL?rev=30291&op=diff
==============================================================================
--- branches/upstream/libemail-valid-perl/current/Makefile.PL (original)
+++ branches/upstream/libemail-valid-perl/current/Makefile.PL Fri Jan 30 14:29:52 2009
@@ -32,5 +32,14 @@
},
'dist' => { 'COMPRESS'=>'gzip -9f', 'SUFFIX' => 'gz',
- 'ZIP'=>'/usr/bin/zip', 'ZIPFLAGS'=>'-rl' }
+ 'ZIP'=>'/usr/bin/zip', 'ZIPFLAGS'=>'-rl' },
+
+ (eval { ExtUtils::MakeMaker->VERSION(6.46) }
+ ? (META_MERGE => {
+ resources => {
+ Repository => 'http://github.com/rjbs/email-valid'
+ }
+ })
+ : ()
+ ),
);
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=30291&op=diff
==============================================================================
--- branches/upstream/libemail-valid-perl/current/lib/Email/Valid.pm (original)
+++ branches/upstream/libemail-valid-perl/current/lib/Email/Valid.pm Fri Jan 30 14:29:52 2009
@@ -9,7 +9,7 @@
use Mail::Address;
use File::Spec;
-$VERSION = '0.179';
+$VERSION = '0.180';
%AUTOLOAD = (
fqdn => 1,
@@ -44,7 +44,7 @@
$self->{fqdn} = 1;
$self->{local_rules} = 0;
$self->{details} = $Details = undef;
-}
+}
# Pupose: handles named parameter calling style
sub _rearrange {
@@ -55,7 +55,7 @@
ref $self ? %args = %$self : _initialize( \%args );
return %args unless @params;
-
+
unless ($params[0] =~ /^-/ and @params > 1) {
while(@params) {
croak 'unexpected number of parameters' unless @names;
@@ -98,7 +98,7 @@
# Purpose: attempt to locate the nslookup utility
sub _find_nslookup {
my $self = shift;
-
+
my $ns = 'nslookup';
foreach my $path (@NSLOOKUP_PATHS) {
my $file = File::Spec->catfile($path, $ns);
@@ -113,7 +113,7 @@
# if Net::DNS is available
eval { require Net::DNS };
return $DNS_Method = 'Net::DNS' unless $@;
-
+
$DNS_Method = 'nslookup';
}
@@ -126,10 +126,10 @@
my $packet = $Resolver->send($host, 'A') or croak $Resolver->errorstring;
return 1 if $packet->header->ancount;
-
+
$packet = $Resolver->send($host, 'MX') or croak $Resolver->errorstring;
return 1 if $packet->header->ancount;
-
+
return $self->details('mx');
}
@@ -223,7 +223,7 @@
my $host = ($addr =~ /^.*@(.*)$/ ? $1 : $addr);
$host =~ s/\s+//g;
-
+
# REMOVE BRACKETS IF IT'S A DOMAIN-LITERAL
# RFC822 3.4.6
# Square brackets ("[" and "]") are used to indicate the
Modified: branches/upstream/libemail-valid-perl/current/t/valid.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-valid-perl/current/t/valid.t?rev=30291&op=diff
==============================================================================
--- branches/upstream/libemail-valid-perl/current/t/valid.t (original)
+++ branches/upstream/libemail-valid-perl/current/t/valid.t Fri Jan 30 14:29:52 2009
@@ -96,7 +96,7 @@
ok(
!$v->address(-address => 'blort at will-never-exist.pobox.com', -mxcheck => 1),
'blort at will-never-exist.pobox.com, with mxcheck, is invalid',
- );
+ ) or diag "was using $Email::Valid::DNS_Method for dns resolution";
}
SKIP: {
More information about the Pkg-perl-cvs-commits
mailing list