Hello community,
here is the log from the commit of package perl-Net-Whois-Raw for
openSUSE:Factory checked in at 2017-05-27 13:19:04
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
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"
Sat May 27 13:19:04 2017 rev:27 rq:498320 version:2.99007
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Net-Whois-Raw/perl-Net-Whois-Raw.changes
2017-02-16 17:05:31.415834817 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Net-Whois-Raw.new/perl-Net-Whois-Raw.changes
2017-05-27 13:19:43.579957858 +0200
@@ -1,0 +2,9 @@
+Thu May 25 08:45:37 UTC 2017 - [email protected]
+
+- updated to 2.99007
+ see /usr/share/doc/packages/perl-Net-Whois-Raw/Changes
+
+ 2.99007 May 22 2017 Vadiml Likhota
+ - revert broken $which_whois default behavior
+
+-------------------------------------------------------------------
Old:
----
Net-Whois-Raw-2.99006.tar.gz
New:
----
Net-Whois-Raw-2.99007.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Net-Whois-Raw.spec ++++++
--- /var/tmp/diff_new_pack.m1eiGn/_old 2017-05-27 13:19:44.331851560 +0200
+++ /var/tmp/diff_new_pack.m1eiGn/_new 2017-05-27 13:19:44.335850995 +0200
@@ -17,7 +17,7 @@
Name: perl-Net-Whois-Raw
-Version: 2.99006
+Version: 2.99007
Release: 0
%define cpan_name Net-Whois-Raw
Summary: Get Whois information of domains and IP addresses
++++++ Net-Whois-Raw-2.99006.tar.gz -> Net-Whois-Raw-2.99007.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99006/Changes
new/Net-Whois-Raw-2.99007/Changes
--- old/Net-Whois-Raw-2.99006/Changes 2017-02-01 15:03:28.000000000 +0100
+++ new/Net-Whois-Raw-2.99007/Changes 2017-05-22 17:25:50.000000000 +0200
@@ -1,5 +1,8 @@
Revision history for Perl module Net::Whois::Raw.
+2.99007 May 22 2017 Vadiml Likhota
+ - revert broken $which_whois default behavior
+
2.99006 Feb 1 2017 Alexander Nalobin
- pwhois script approves IDN domains (ɢoogle.com)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99006/META.json
new/Net-Whois-Raw-2.99007/META.json
--- old/Net-Whois-Raw-2.99006/META.json 2017-02-01 15:03:28.000000000 +0100
+++ new/Net-Whois-Raw-2.99007/META.json 2017-05-22 17:25:50.000000000 +0200
@@ -59,6 +59,6 @@
"web" : "https://github.com/regru/Net-Whois-Raw";
}
},
- "version" : "2.99006"
+ "version" : "2.99007"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99006/META.yml
new/Net-Whois-Raw-2.99007/META.yml
--- old/Net-Whois-Raw-2.99006/META.yml 2017-02-01 15:03:28.000000000 +0100
+++ new/Net-Whois-Raw-2.99007/META.yml 2017-05-22 17:25:50.000000000 +0200
@@ -36,4 +36,4 @@
resources:
bugtracker: https://github.com/regru/Net-Whois-Raw/issues
repository: git://github.com/regru/Net-Whois-Raw.git
-version: '2.99006'
+version: '2.99007'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99006/Makefile.PL
new/Net-Whois-Raw-2.99007/Makefile.PL
--- old/Net-Whois-Raw-2.99006/Makefile.PL 2017-02-01 15:03:28.000000000
+0100
+++ new/Net-Whois-Raw-2.99007/Makefile.PL 2017-05-22 17:25:50.000000000
+0200
@@ -43,7 +43,7 @@
"Test::More" => 0,
"Test::RequiresInternet" => 0
},
- "VERSION" => "2.99006",
+ "VERSION" => "2.99007",
"test" => {
"TESTS" => "t/*.t"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99006/bin/pwhois
new/Net-Whois-Raw-2.99007/bin/pwhois
--- old/Net-Whois-Raw-2.99006/bin/pwhois 2017-02-01 15:03:28.000000000
+0100
+++ new/Net-Whois-Raw-2.99007/bin/pwhois 2017-05-22 17:25:50.000000000
+0200
@@ -93,8 +93,7 @@
my ($result, $result_server);
my $which_whois =
$return_first ? 'QRY_FIRST' :
- $return_all ? 'QRY_ALL' :
- $return_last ? 'QRY_LAST' : '' ;
+ $return_all ? 'QRY_ALL' : 'QRY_LAST';
($result, $result_server) =
Net::Whois::Raw::get_whois( $dom, $server, $which_whois );
@@ -241,7 +240,7 @@
=head1 VERSION
-version 2.99006
+version 2.99007
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99006/dist.ini
new/Net-Whois-Raw-2.99007/dist.ini
--- old/Net-Whois-Raw-2.99006/dist.ini 2017-02-01 15:03:28.000000000 +0100
+++ new/Net-Whois-Raw-2.99007/dist.ini 2017-05-22 17:25:50.000000000 +0200
@@ -4,7 +4,7 @@
copyright_holder = Alexander Nalobin
copyright_year = 2002-2017
-version = 2.99006
+version = 2.99007
[@Filter]
-bundle = @Basic
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99006/lib/Net/Whois/Raw/Common.pm
new/Net-Whois-Raw-2.99007/lib/Net/Whois/Raw/Common.pm
--- old/Net-Whois-Raw-2.99006/lib/Net/Whois/Raw/Common.pm 2017-02-01
15:03:28.000000000 +0100
+++ new/Net-Whois-Raw-2.99007/lib/Net/Whois/Raw/Common.pm 2017-05-22
17:25:50.000000000 +0200
@@ -1,5 +1,5 @@
package Net::Whois::Raw::Common;
-$Net::Whois::Raw::Common::VERSION = '2.99006';
+$Net::Whois::Raw::Common::VERSION = '2.99007';
# ABSTRACT: Helper for Net::Whois::Raw.
use Encode;
@@ -616,7 +616,7 @@
=head1 VERSION
-version 2.99006
+version 2.99007
=head1 AUTHOR
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99006/lib/Net/Whois/Raw/Data.pm
new/Net-Whois-Raw-2.99007/lib/Net/Whois/Raw/Data.pm
--- old/Net-Whois-Raw-2.99006/lib/Net/Whois/Raw/Data.pm 2017-02-01
15:03:28.000000000 +0100
+++ new/Net-Whois-Raw-2.99007/lib/Net/Whois/Raw/Data.pm 2017-05-22
17:25:50.000000000 +0200
@@ -1,5 +1,5 @@
package Net::Whois::Raw::Data;
-$Net::Whois::Raw::Data::VERSION = '2.99006';
+$Net::Whois::Raw::Data::VERSION = '2.99007';
# ABSTRACT: Config for Net::Whois::Raw.
use utf8;
@@ -1981,15 +1981,6 @@
);
-our %default_last_tlds = qw(
- COM whois.crsnic.net
- NET whois.crsnic.net
- CC whois.nic.cc
- TV whois.nic.tv
- JOBS whois.nic.jobs
-);
-
-
our %ip_whois_servers = qw(
AFRINIC whois.afrinic.net
APNIC whois.apnic.net
@@ -4294,7 +4285,7 @@
=head1 VERSION
-version 2.99006
+version 2.99007
=head1 AUTHOR
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99006/lib/Net/Whois/Raw.pm
new/Net-Whois-Raw-2.99007/lib/Net/Whois/Raw.pm
--- old/Net-Whois-Raw-2.99006/lib/Net/Whois/Raw.pm 2017-02-01
15:03:28.000000000 +0100
+++ new/Net-Whois-Raw-2.99007/lib/Net/Whois/Raw.pm 2017-05-22
17:25:50.000000000 +0200
@@ -1,5 +1,5 @@
package Net::Whois::Raw;
-$Net::Whois::Raw::VERSION = '2.99006';
+$Net::Whois::Raw::VERSION = '2.99007';
# ABSTRACT: Get Whois information of domains and IP addresses.
require 5.008_001;
@@ -60,10 +60,7 @@
sub whois {
my ($dom, $server, $which_whois) = @_;
- unless ( $which_whois ) {
- my ( undef, $tld ) = Net::Whois::Raw::Common::split_domain( $dom );
- $which_whois = $Net::Whois::Raw::Data::default_last_tlds{ uc $tld } ?
'QRY_LAST' : 'QRY_FIRST' ;
- }
+ $which_whois ||= 'QRY_LAST';
my $res = Net::Whois::Raw::Common::get_from_cache( "$dom-$which_whois",
$CACHE_DIR, $CACHE_TIME );
@@ -96,11 +93,7 @@
# obtain whois
sub get_whois {
my ($dom, $srv, $which_whois) = @_;
-
- unless ( $which_whois ) {
- my ( undef, $tld ) = Net::Whois::Raw::Common::split_domain( $dom );
- $which_whois = $Net::Whois::Raw::Data::default_last_tlds{ uc $tld } ?
'QRY_LAST' : 'QRY_FIRST' ;
- }
+ $which_whois ||= 'QRY_LAST';
my $whois = get_all_whois( $dom, $srv, $which_whois eq 'QRY_FIRST' )
or return undef;
@@ -178,16 +171,12 @@
my $lines = whois_query( $dom, $srv, $is_ns );
my $whois = join("", @{$lines});
- my ($newsrv, $registrar, $wsrv);
+ my ($newsrv, $registrar);
foreach (@{$lines}) {
$registrar ||= /Registrar/ || /Registered through/;
- if ( !$norecurse && !$wsrv && /(?:Whois|WHOIS)
Server:\s*([A-Za-z0-9\-_\.]+)/ ) {
- $wsrv = lc $1;
- }
-
- if ( $registrar && !$norecurse && $wsrv && !$newsrv ) {
- $newsrv = $wsrv;
+ if ( $registrar && !$norecurse && /Whois
Server:\s*([A-Za-z0-9\-_\.]+)/ ) {
+ $newsrv = lc $1;
}
elsif ($whois =~ /To single out one record, look it up with
\"xxx\",/s) {
return recursive_whois( "=$dom", $srv, $was_srv );
@@ -483,7 +472,7 @@
=head1 VERSION
-version 2.99006
+version 2.99007
=head1 SYNOPSIS
