Hello community,

here is the log from the commit of package perl-Net-Whois-Raw for 
openSUSE:Factory checked in at 2019-07-17 14:27:28
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Net-Whois-Raw (Old)
 and      /work/SRC/openSUSE:Factory/.perl-Net-Whois-Raw.new.1887 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Net-Whois-Raw"

Wed Jul 17 14:27:28 2019 rev:38 rq:715931 version:2.99022

Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Net-Whois-Raw/perl-Net-Whois-Raw.changes    
2018-12-12 17:27:10.518976546 +0100
+++ 
/work/SRC/openSUSE:Factory/.perl-Net-Whois-Raw.new.1887/perl-Net-Whois-Raw.changes
  2019-07-17 14:27:29.987300271 +0200
@@ -1,0 +2,10 @@
+Tue Jul 16 09:50:57 UTC 2019 - Stephan Kulow <co...@suse.com>
+
+- updated to 2.99022
+   see /usr/share/doc/packages/perl-Net-Whois-Raw/Changes
+
+  
+  2.99022  Jul 12 2019 Dave Hayes
+      Fix caching for QRY_ALL (https://github.com/regru/Net-Whois-Raw/pull/19)
+
+-------------------------------------------------------------------

Old:
----
  Net-Whois-Raw-2.99021.tar.gz

New:
----
  Net-Whois-Raw-2.99022.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-Net-Whois-Raw.spec ++++++
--- /var/tmp/diff_new_pack.dcIg4m/_old  2019-07-17 14:27:30.523298606 +0200
+++ /var/tmp/diff_new_pack.dcIg4m/_new  2019-07-17 14:27:30.523298606 +0200
@@ -1,7 +1,7 @@
 #
 # spec file for package perl-Net-Whois-Raw
 #
-# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany.
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@@ -17,7 +17,7 @@
 
 
 Name:           perl-Net-Whois-Raw
-Version:        2.99021
+Version:        2.99022
 Release:        0
 %define cpan_name Net-Whois-Raw
 Summary:        Get Whois information of domains and IP addresses

++++++ Net-Whois-Raw-2.99021.tar.gz -> Net-Whois-Raw-2.99022.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Net-Whois-Raw-2.99021/Changes 
new/Net-Whois-Raw-2.99022/Changes
--- old/Net-Whois-Raw-2.99021/Changes   2018-11-20 11:56:57.000000000 +0100
+++ new/Net-Whois-Raw-2.99022/Changes   2019-07-12 06:51:21.000000000 +0200
@@ -1,5 +1,9 @@
 Revision history for Perl module Net::Whois::Raw.
 
+
+2.99022  Jul 12 2019 Dave Hayes
+    Fix caching for QRY_ALL (https://github.com/regru/Net-Whois-Raw/pull/19)
+
 2.99021  Nov 20 2018 Eugeny Subachev
     - Fixed/added 'not found' patterns of net.ua vg gd kiwi sx TLDs.
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Net-Whois-Raw-2.99021/LICENSE 
new/Net-Whois-Raw-2.99022/LICENSE
--- old/Net-Whois-Raw-2.99021/LICENSE   2018-11-20 11:56:57.000000000 +0100
+++ new/Net-Whois-Raw-2.99022/LICENSE   2019-07-12 06:51:21.000000000 +0200
@@ -1,4 +1,4 @@
-This software is copyright (c) 2002-2018 by Alexander Nalobin.
+This software is copyright (c) 2002-2019 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-2018 by Alexander Nalobin.
+This software is Copyright (c) 2002-2019 by Alexander Nalobin.
 
 This is free software, licensed under:
 
@@ -272,7 +272,7 @@
 
 --- The Artistic License 1.0 ---
 
-This software is Copyright (c) 2002-2018 by Alexander Nalobin.
+This software is Copyright (c) 2002-2019 by Alexander Nalobin.
 
 This is free software, licensed under:
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Net-Whois-Raw-2.99021/MANIFEST 
new/Net-Whois-Raw-2.99022/MANIFEST
--- old/Net-Whois-Raw-2.99021/MANIFEST  2018-11-20 11:56:57.000000000 +0100
+++ new/Net-Whois-Raw-2.99022/MANIFEST  2019-07-12 06:51:21.000000000 +0200
@@ -19,6 +19,7 @@
 t/01-local.t
 t/02-www_parse_tj_cgi_whois.t
 t/03-read_write_cache.t
+t/04-qrycache.t
 t/all_tlds.pl
 t/coro-domains.pl
 t/example-domains-load-balancing.pl
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Net-Whois-Raw-2.99021/META.json 
new/Net-Whois-Raw-2.99022/META.json
--- old/Net-Whois-Raw-2.99021/META.json 2018-11-20 11:56:57.000000000 +0100
+++ new/Net-Whois-Raw-2.99022/META.json 2019-07-12 06:51:21.000000000 +0200
@@ -59,7 +59,7 @@
          "web" : "https://github.com/regru/Net-Whois-Raw";
       }
    },
-   "version" : "2.99021",
+   "version" : "2.99022",
    "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.99021/META.yml 
new/Net-Whois-Raw-2.99022/META.yml
--- old/Net-Whois-Raw-2.99021/META.yml  2018-11-20 11:56:57.000000000 +0100
+++ new/Net-Whois-Raw-2.99022/META.yml  2019-07-12 06:51:21.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.99021
+version: 2.99022
 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.99021/Makefile.PL 
new/Net-Whois-Raw-2.99022/Makefile.PL
--- old/Net-Whois-Raw-2.99021/Makefile.PL       2018-11-20 11:56:57.000000000 
+0100
+++ new/Net-Whois-Raw-2.99022/Makefile.PL       2019-07-12 06:51:21.000000000 
+0200
@@ -42,7 +42,7 @@
     "Test::More" => 0,
     "Test::RequiresInternet" => 0
   },
-  "VERSION" => "2.99021",
+  "VERSION" => "2.99022",
   "test" => {
     "TESTS" => "t/*.t"
   }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Net-Whois-Raw-2.99021/bin/pwhois 
new/Net-Whois-Raw-2.99022/bin/pwhois
--- old/Net-Whois-Raw-2.99021/bin/pwhois        2018-11-20 11:56:57.000000000 
+0100
+++ new/Net-Whois-Raw-2.99022/bin/pwhois        2019-07-12 06:51:21.000000000 
+0200
@@ -240,7 +240,7 @@
 
 =head1 VERSION
 
-version 2.99021
+version 2.99022
 
 =head1 SYNOPSIS
 
@@ -288,7 +288,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-This software is copyright (c) 2002-2018 by Alexander Nalobin.
+This software is copyright (c) 2002-2019 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.99021/dist.ini 
new/Net-Whois-Raw-2.99022/dist.ini
--- old/Net-Whois-Raw-2.99021/dist.ini  2018-11-20 11:56:57.000000000 +0100
+++ new/Net-Whois-Raw-2.99022/dist.ini  2019-07-12 06:51:21.000000000 +0200
@@ -2,9 +2,9 @@
 author  = Alexander Nalobin <alexan...@nalobin.ru>
 license = Perl_5
 copyright_holder = Alexander Nalobin
-copyright_year   = 2002-2018
+copyright_year   = 2002-2019
 
-version = 2.99021
+version = 2.99022
 
 [@Filter]
 -bundle = @Basic
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Net-Whois-Raw-2.99021/lib/Net/Whois/Raw/Common.pm 
new/Net-Whois-Raw-2.99022/lib/Net/Whois/Raw/Common.pm
--- old/Net-Whois-Raw-2.99021/lib/Net/Whois/Raw/Common.pm       2018-11-20 
11:56:57.000000000 +0100
+++ new/Net-Whois-Raw-2.99022/lib/Net/Whois/Raw/Common.pm       2019-07-12 
06:51:21.000000000 +0200
@@ -1,5 +1,5 @@
 package Net::Whois::Raw::Common;
-$Net::Whois::Raw::Common::VERSION = '2.99021';
+$Net::Whois::Raw::Common::VERSION = '2.99022';
 # ABSTRACT: Helper for Net::Whois::Raw.
 
 use Encode;
@@ -616,7 +616,7 @@
 
 =head1 VERSION
 
-version 2.99021
+version 2.99022
 
 =head1 AUTHOR
 
@@ -624,7 +624,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-This software is copyright (c) 2002-2018 by Alexander Nalobin.
+This software is copyright (c) 2002-2019 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.99021/lib/Net/Whois/Raw/Data.pm 
new/Net-Whois-Raw-2.99022/lib/Net/Whois/Raw/Data.pm
--- old/Net-Whois-Raw-2.99021/lib/Net/Whois/Raw/Data.pm 2018-11-20 
11:56:57.000000000 +0100
+++ new/Net-Whois-Raw-2.99022/lib/Net/Whois/Raw/Data.pm 2019-07-12 
06:51:21.000000000 +0200
@@ -1,5 +1,5 @@
 package Net::Whois::Raw::Data;
-$Net::Whois::Raw::Data::VERSION = '2.99021';
+$Net::Whois::Raw::Data::VERSION = '2.99022';
 # ABSTRACT: Config for Net::Whois::Raw.
 
 use utf8;
@@ -4342,7 +4342,7 @@
 
 =head1 VERSION
 
-version 2.99021
+version 2.99022
 
 =head1 AUTHOR
 
@@ -4350,7 +4350,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-This software is copyright (c) 2002-2018 by Alexander Nalobin.
+This software is copyright (c) 2002-2019 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.99021/lib/Net/Whois/Raw.pm 
new/Net-Whois-Raw-2.99022/lib/Net/Whois/Raw.pm
--- old/Net-Whois-Raw-2.99021/lib/Net/Whois/Raw.pm      2018-11-20 
11:56:57.000000000 +0100
+++ new/Net-Whois-Raw-2.99022/lib/Net/Whois/Raw.pm      2019-07-12 
06:51:21.000000000 +0200
@@ -1,5 +1,5 @@
 package Net::Whois::Raw;
-$Net::Whois::Raw::VERSION = '2.99021';
+$Net::Whois::Raw::VERSION = '2.99022';
 # ABSTRACT: Get Whois information of domains and IP addresses.
 
 require 5.008_001;
@@ -73,7 +73,9 @@
         } elsif ($which_whois eq 'QRY_LAST' || !defined($which_whois)) {
             $res_text = $res->[-1]->{text};
             $res_srv  = $res->[-1]->{srv};
-        }
+        } elsif ($which_whois eq 'QRY_ALL') {
+            return $res;
+        }  
     }
     else {
         ($res_text, $res_srv) = get_whois($dom, $server, $which_whois);
@@ -479,7 +481,7 @@
 
 =head1 VERSION
 
-version 2.99021
+version 2.99022
 
 =head1 SYNOPSIS
 
@@ -717,7 +719,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-This software is copyright (c) 2002-2018 by Alexander Nalobin.
+This software is copyright (c) 2002-2019 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.99021/t/04-qrycache.t 
new/Net-Whois-Raw-2.99022/t/04-qrycache.t
--- old/Net-Whois-Raw-2.99021/t/04-qrycache.t   1970-01-01 01:00:00.000000000 
+0100
+++ new/Net-Whois-Raw-2.99022/t/04-qrycache.t   2019-07-12 06:51:21.000000000 
+0200
@@ -0,0 +1,39 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+
+use Data::Dumper;
+use Test::RequiresInternet;
+use Test::More tests =>  3;
+
+use_ok 'Net::Whois::Raw';
+
+# Most of this lifted from internet.pl
+my $test_domain = 'google.com';
+my $tmp_dir;
+if ( $^O =~ /mswin/i ) {
+    $tmp_dir = $ENV{TEMP} . '\net-whois-raw-cache-test-' . time;
+}
+else {
+    $tmp_dir = '/tmp/net-whois-raw-cache-test-' . time;
+}
+my $cache_file  = "$tmp_dir/$test_domain-QRY_ALL.00";
+
+{
+  no warnings;
+  $Net::Whois::Raw::CACHE_DIR = $tmp_dir;
+}
+my $first_result = whois( $test_domain, undef, 'QRY_ALL' );
+ok -e $cache_file, 'write_to_cache_all';
+
+my $cached_result = whois( $test_domain, undef, 'QRY_ALL' );  
+ok defined($cached_result), "returned_cached_result";
+
+# So...the cached result return is different and yet valid. Commented out for 
now
+# as the "defined" test actually tests the bug I found in this module.
+# is_deeply $cached_result, $first_result, "cached_results_match";
+            
+unlink <$tmp_dir/*>;
+rmdir $tmp_dir;
+


Reply via email to