Attached please find the patch for the NMU for 360792 which I have uploaded to incomming.
Don Armstrong -- If I had a letter, sealed it in a locked vault and hid the vault somewhere in New York. Then told you to read the letter, thats not security, thats obscurity. If I made a letter, sealed it in a vault, gave you the blueprints of the vault, the combinations of 1000 other vaults, access to the best lock smiths in the world, then told you to read the letter, and you still can't, thats security. -- Bruce Schneier http://www.donarmstrong.com http://rzlab.ucr.edu
diff -u libemail-valid-perl-0.15/debian/control
libemail-valid-perl-0.15/debian/control
--- libemail-valid-perl-0.15/debian/control
+++ libemail-valid-perl-0.15/debian/control
@@ -2,7 +2,7 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>=3.0.18)
-Build-Depends-Indep: perl (>=5.6.0-16), libmailtools-perl, libnet-dns-perl,
libnet-domain-tld-perl, netbase
+Build-Depends-Indep: perl (>=5.6.0-16), libmailtools-perl, libnet-dns-perl,
libnet-domain-tld-perl (>= 1.65), netbase
Maintainer: Ron Lee <[EMAIL PROTECTED]>
Standards-Version: 3.6.2.1
Uploaders: Gunnar Wolf <[EMAIL PROTECTED]>
diff -u libemail-valid-perl-0.15/debian/changelog
libemail-valid-perl-0.15/debian/changelog
--- libemail-valid-perl-0.15/debian/changelog
+++ libemail-valid-perl-0.15/debian/changelog
@@ -1,3 +1,11 @@
+libemail-valid-perl (0.15-3.1) unstable; urgency=low
+
+ * Make Email::Valid use the non-OO interface to Net::Domain::TLD
+ (closes: #360792) Thanks to gregor herrmann for the original patch
+ which was modified.
+
+ -- Don Armstrong <[EMAIL PROTECTED]> Thu, 20 Apr 2006 13:11:50 -0700
+
libemail-valid-perl (0.15-3) unstable; urgency=high
* Don't fail to build the package if the tests are not successful.
only in patch2:
unchanged:
--- libemail-valid-perl-0.15.orig/Valid.pm
+++ libemail-valid-perl-0.15/Valid.pm
@@ -3,11 +3,12 @@
use strict;
use vars qw( $VERSION $RFC822PAT %AUTOLOAD $AUTOLOAD $NSLOOKUP_PAT
@NSLOOKUP_PATHS $Details $Resolver $Nslookup_Path
- $DNS_Method $TLD $Debug );
+ $DNS_Method $Debug );
use Carp;
use IO::File;
use Mail::Address;
use File::Spec;
+use Net::Domain::TLD;
$VERSION = '0.15';
@@ -17,7 +18,6 @@
# initialize if already loaded, better in prefork mod_perl environment
$DNS_Method = defined $Net::DNS::VERSION ? 'Net::DNS' : '';
-$TLD = Net::Domain::TLD->new if defined $Net::Domain::TLD::VERSION;
sub new {
my $class = shift;
@@ -164,14 +164,9 @@
my $self = shift;
my %args = $self->_rearrange([qw( address )], [EMAIL PROTECTED]);
- if (!defined $TLD) {
- require Net::Domain::TLD;
- $TLD = Net::Domain::TLD->new;
- }
-
my $host = $self->_host( $args{address} or return $self->details('tld') );
$host =~ m#\.(\w+)$#;
- $TLD->exists( $1 );
+ Net::Domain::TLD::tld_exists( $1 );
}
# Purpose: Check whether a DNS record (A or MX) exists for a domain.
signature.asc
Description: Digital signature
