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 <[email protected]> + +- 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 <[email protected]> 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; +
