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 - co...@suse.com
+
+- 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 <alexan...@nalobin.ru>
 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.


Reply via email to