Hello community,
here is the log from the commit of package perl-Net-Whois-Raw for
openSUSE:Factory checked in at 2018-07-22 23:05:37
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Net-Whois-Raw (Old)
and /work/SRC/openSUSE:Factory/.perl-Net-Whois-Raw.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Net-Whois-Raw"
Sun Jul 22 23:05:37 2018 rev:34 rq:624412 version:2.99016
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Net-Whois-Raw/perl-Net-Whois-Raw.changes
2018-06-20 15:26:51.615864187 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Net-Whois-Raw.new/perl-Net-Whois-Raw.changes
2018-07-22 23:05:37.788899585 +0200
@@ -1,0 +2,9 @@
+Wed Jul 18 05:47:52 UTC 2018 - [email protected]
+
+- updated to 2.99016
+ see /usr/share/doc/packages/perl-Net-Whois-Raw/Changes
+
+ 2.99016 Jul 18 2018 Alexander Nalobin
+ - fixed recursion to referal whois servers in QRY_FIRST mode
+
+-------------------------------------------------------------------
Old:
----
Net-Whois-Raw-2.99015.tar.gz
New:
----
Net-Whois-Raw-2.99016.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Net-Whois-Raw.spec ++++++
--- /var/tmp/diff_new_pack.zWit8P/_old 2018-07-22 23:05:38.248899414 +0200
+++ /var/tmp/diff_new_pack.zWit8P/_new 2018-07-22 23:05:38.248899414 +0200
@@ -17,7 +17,7 @@
Name: perl-Net-Whois-Raw
-Version: 2.99015
+Version: 2.99016
Release: 0
%define cpan_name Net-Whois-Raw
Summary: Get Whois information of domains and IP addresses
++++++ Net-Whois-Raw-2.99015.tar.gz -> Net-Whois-Raw-2.99016.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99015/Changes
new/Net-Whois-Raw-2.99016/Changes
--- old/Net-Whois-Raw-2.99015/Changes 2018-06-15 11:12:14.000000000 +0200
+++ new/Net-Whois-Raw-2.99016/Changes 2018-07-17 11:49:00.000000000 +0200
@@ -1,5 +1,8 @@
Revision history for Perl module Net::Whois::Raw.
+2.99016 Jul 18 2018 Alexander Nalobin
+ - fixed recursion to referal whois servers in QRY_FIRST mode
+
2.99015 Jun 14 2018 Sergei Sedinkin
- new whois server for .net.ru, .org.ru and .pp.ru domains
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99015/LICENSE
new/Net-Whois-Raw-2.99016/LICENSE
--- old/Net-Whois-Raw-2.99015/LICENSE 2018-06-15 11:12:14.000000000 +0200
+++ new/Net-Whois-Raw-2.99016/LICENSE 2018-07-17 11:49:00.000000000 +0200
@@ -1,4 +1,4 @@
-This software is copyright (c) 2002-2017 by Alexander Nalobin.
+This software is copyright (c) 2002-2018 by Alexander Nalobin.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -12,7 +12,7 @@
--- The GNU General Public License, Version 1, February 1989 ---
-This software is Copyright (c) 2002-2017 by Alexander Nalobin.
+This software is Copyright (c) 2002-2018 by Alexander Nalobin.
This is free software, licensed under:
@@ -272,7 +272,7 @@
--- The Artistic License 1.0 ---
-This software is Copyright (c) 2002-2017 by Alexander Nalobin.
+This software is Copyright (c) 2002-2018 by Alexander Nalobin.
This is free software, licensed under:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99015/META.json
new/Net-Whois-Raw-2.99016/META.json
--- old/Net-Whois-Raw-2.99015/META.json 2018-06-15 11:12:14.000000000 +0200
+++ new/Net-Whois-Raw-2.99016/META.json 2018-07-17 11:49:00.000000000 +0200
@@ -59,7 +59,7 @@
"web" : "https://github.com/regru/Net-Whois-Raw";
}
},
- "version" : "2.99015",
+ "version" : "2.99016",
"x_generated_by_perl" : "v5.18.2",
"x_serialization_backend" : "JSON::XS version 3.04"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99015/META.yml
new/Net-Whois-Raw-2.99016/META.yml
--- old/Net-Whois-Raw-2.99015/META.yml 2018-06-15 11:12:14.000000000 +0200
+++ new/Net-Whois-Raw-2.99016/META.yml 2018-07-17 11:49:00.000000000 +0200
@@ -36,6 +36,6 @@
resources:
bugtracker: https://github.com/regru/Net-Whois-Raw/issues
repository: git://github.com/regru/Net-Whois-Raw.git
-version: 2.99015
+version: 2.99016
x_generated_by_perl: v5.18.2
x_serialization_backend: 'YAML::Tiny version 1.56'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99015/Makefile.PL
new/Net-Whois-Raw-2.99016/Makefile.PL
--- old/Net-Whois-Raw-2.99015/Makefile.PL 2018-06-15 11:12:14.000000000
+0200
+++ new/Net-Whois-Raw-2.99016/Makefile.PL 2018-07-17 11:49:00.000000000
+0200
@@ -42,7 +42,7 @@
"Test::More" => 0,
"Test::RequiresInternet" => 0
},
- "VERSION" => "2.99015",
+ "VERSION" => "2.99016",
"test" => {
"TESTS" => "t/*.t"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99015/bin/pwhois
new/Net-Whois-Raw-2.99016/bin/pwhois
--- old/Net-Whois-Raw-2.99015/bin/pwhois 2018-06-15 11:12:14.000000000
+0200
+++ new/Net-Whois-Raw-2.99016/bin/pwhois 2018-07-17 11:49:00.000000000
+0200
@@ -240,7 +240,7 @@
=head1 VERSION
-version 2.99015
+version 2.99016
=head1 SYNOPSIS
@@ -288,7 +288,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2002-2017 by Alexander Nalobin.
+This software is copyright (c) 2002-2018 by Alexander Nalobin.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99015/dist.ini
new/Net-Whois-Raw-2.99016/dist.ini
--- old/Net-Whois-Raw-2.99015/dist.ini 2018-06-15 11:12:14.000000000 +0200
+++ new/Net-Whois-Raw-2.99016/dist.ini 2018-07-17 11:49:00.000000000 +0200
@@ -2,9 +2,9 @@
author = Alexander Nalobin <[email protected]>
license = Perl_5
copyright_holder = Alexander Nalobin
-copyright_year = 2002-2017
+copyright_year = 2002-2018
-version = 2.99015
+version = 2.99016
[@Filter]
-bundle = @Basic
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99015/lib/Net/Whois/Raw/Common.pm
new/Net-Whois-Raw-2.99016/lib/Net/Whois/Raw/Common.pm
--- old/Net-Whois-Raw-2.99015/lib/Net/Whois/Raw/Common.pm 2018-06-15
11:12:14.000000000 +0200
+++ new/Net-Whois-Raw-2.99016/lib/Net/Whois/Raw/Common.pm 2018-07-17
11:49:00.000000000 +0200
@@ -1,5 +1,5 @@
package Net::Whois::Raw::Common;
-$Net::Whois::Raw::Common::VERSION = '2.99015';
+$Net::Whois::Raw::Common::VERSION = '2.99016';
# ABSTRACT: Helper for Net::Whois::Raw.
use Encode;
@@ -616,7 +616,7 @@
=head1 VERSION
-version 2.99015
+version 2.99016
=head1 AUTHOR
@@ -624,7 +624,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2002-2017 by Alexander Nalobin.
+This software is copyright (c) 2002-2018 by Alexander Nalobin.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99015/lib/Net/Whois/Raw/Data.pm
new/Net-Whois-Raw-2.99016/lib/Net/Whois/Raw/Data.pm
--- old/Net-Whois-Raw-2.99015/lib/Net/Whois/Raw/Data.pm 2018-06-15
11:12:14.000000000 +0200
+++ new/Net-Whois-Raw-2.99016/lib/Net/Whois/Raw/Data.pm 2018-07-17
11:49:00.000000000 +0200
@@ -1,5 +1,5 @@
package Net::Whois::Raw::Data;
-$Net::Whois::Raw::Data::VERSION = '2.99015';
+$Net::Whois::Raw::Data::VERSION = '2.99016';
# ABSTRACT: Config for Net::Whois::Raw.
use utf8;
@@ -4280,7 +4280,7 @@
=head1 VERSION
-version 2.99015
+version 2.99016
=head1 AUTHOR
@@ -4288,7 +4288,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2002-2017 by Alexander Nalobin.
+This software is copyright (c) 2002-2018 by Alexander Nalobin.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99015/lib/Net/Whois/Raw.pm
new/Net-Whois-Raw-2.99016/lib/Net/Whois/Raw.pm
--- old/Net-Whois-Raw-2.99015/lib/Net/Whois/Raw.pm 2018-06-15
11:12:14.000000000 +0200
+++ new/Net-Whois-Raw-2.99016/lib/Net/Whois/Raw.pm 2018-07-17
11:49:00.000000000 +0200
@@ -1,5 +1,5 @@
package Net::Whois::Raw;
-$Net::Whois::Raw::VERSION = '2.99015';
+$Net::Whois::Raw::VERSION = '2.99016';
# ABSTRACT: Get Whois information of domains and IP addresses.
require 5.008_001;
@@ -166,37 +166,37 @@
}
sub recursive_whois {
- my ($dom, $srv, $was_srv, $norecurse, $is_ns) = @_;
+ my ( $dom, $srv, $was_srv, $norecurse, $is_ns ) = @_;
my $lines = whois_query( $dom, $srv, $is_ns );
- my $whois = join("", @{$lines});
+ my $whois = join '', @$lines;
- my ($newsrv, $registrar);
- foreach (@{$lines}) {
+ my ( $newsrv, $registrar );
+ for ( @$lines ) {
$registrar ||= /Registrar/ || /Registered through/;
# Skip urls as recursive whois servers
if ( $registrar && !$norecurse && /whois server:\s*([a-z0-9\-_\.]+)$/i
) {
$newsrv = lc $1;
}
- elsif ($whois =~ /To single out one record, look it up with
\"xxx\",/s) {
+ elsif ( $whois =~ /To single out one record, look it up with
\"xxx\",/s ) {
return recursive_whois( "=$dom", $srv, $was_srv );
}
- elsif (my ($rs) = _referral_server()) {
+ elsif ( my ( $rs ) = _referral_server() && !$norecurse ) {
$newsrv = $rs;
last;
}
- elsif (/Contact information can be found in the (\S+)\s+database/) {
+ elsif ( /Contact information can be found in the (\S+)\s+database/ ) {
$newsrv = $Net::Whois::Raw::Data::ip_whois_servers{ $1 };
}
- elsif ((/OrgID:\s+(\w+)/ || /descr:\s+(\w+)/) &&
Net::Whois::Raw::Common::is_ipaddr($dom)) {
+ elsif ( ( /OrgID:\s+(\w+)/ || /descr:\s+(\w+)/ ) &&
Net::Whois::Raw::Common::is_ipaddr( $dom ) ) {
my $val = $1;
- if($val =~ /^(?:RIPE|APNIC|KRNIC|LACNIC)$/) {
+ if ( $val =~ /^(?:RIPE|APNIC|KRNIC|LACNIC)$/ ) {
$newsrv = $Net::Whois::Raw::Data::ip_whois_servers{ $val };
last;
}
}
- elsif (/^\s+Maintainer:\s+RIPE\b/ &&
Net::Whois::Raw::Common::is_ipaddr($dom)) {
+ elsif ( /^\s+Maintainer:\s+RIPE\b/ &&
Net::Whois::Raw::Common::is_ipaddr( $dom ) ) {
$newsrv = $Net::Whois::Raw::Data::servers{RIPE};
}
elsif ( $is_ns && $srv ne $Net::Whois::Raw::Data::servers{NS} ) {
@@ -216,14 +216,14 @@
}
my @whois_recs = ( { text => $whois, srv => $srv } );
- if ($newsrv && $newsrv ne $srv) {
+ if ( $newsrv && $newsrv ne $srv ) {
warn "recurse to $newsrv\n" if $DEBUG;
- return () if grep {$_ eq $newsrv} @$was_srv;
+ return () if grep { $_ eq $newsrv } @$was_srv;
- my @new_whois_recs = eval { recursive_whois( $dom, $newsrv,
[@$was_srv, $srv], 0, $is_ns) };
- my $new_whois = scalar(@new_whois_recs) ? $new_whois_recs[0]->{text} :
'';
- my $notfound = $Net::Whois::Raw::Data::notfound{$newsrv};
+ my @new_whois_recs = eval { recursive_whois( $dom, $newsrv, [
@$was_srv, $srv ], 0, $is_ns ) };
+ my $new_whois = scalar @new_whois_recs ? $new_whois_recs[0]->{text} :
'';
+ my $notfound = $Net::Whois::Raw::Data::notfound{ $newsrv };
if ( $new_whois && !$@ && not ( $notfound && $new_whois =~
/$notfound/im ) ) {
if ( $is_ns ) {
@@ -234,7 +234,7 @@
}
}
else {
- warn "recursive query failed\n" if $DEBUG;
+ warn "recursive query failed\n" if $DEBUG;
}
}
@@ -479,7 +479,7 @@
=head1 VERSION
-version 2.99015
+version 2.99016
=head1 SYNOPSIS
@@ -717,7 +717,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2002-2017 by Alexander Nalobin.
+This software is copyright (c) 2002-2018 by Alexander Nalobin.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
