Hello community, here is the log from the commit of package perl-Net-Whois-RIPE for openSUSE:Factory checked in at 2019-03-04 09:22:08 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Net-Whois-RIPE (Old) and /work/SRC/openSUSE:Factory/.perl-Net-Whois-RIPE.new.28833 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Net-Whois-RIPE" Mon Mar 4 09:22:08 2019 rev:31 rq:680653 version:2.006002 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Net-Whois-RIPE/perl-Net-Whois-RIPE.changes 2017-11-15 16:52:58.838628266 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Net-Whois-RIPE.new.28833/perl-Net-Whois-RIPE.changes 2019-03-04 09:22:21.908579497 +0100 @@ -1,0 +2,6 @@ +Fri Mar 1 21:21:32 UTC 2019 - Dirk Stoecker <opens...@dstoecker.de> + +- updated to 2.006002 + see /usr/share/doc/packages/perl-Net-Whois-RIPE/Changes + +------------------------------------------------------------------- Old: ---- Net-Whois-RIPE-2.006001.tar.gz New: ---- Net-Whois-RIPE-2.006002.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Net-Whois-RIPE.spec ++++++ --- /var/tmp/diff_new_pack.c9m4hg/_old 2019-03-04 09:22:22.324579422 +0100 +++ /var/tmp/diff_new_pack.c9m4hg/_new 2019-03-04 09:22:22.336579419 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-Net-Whois-RIPE # -# Copyright (c) 2017 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 @@ -12,18 +12,18 @@ # license that conforms to the Open Source Definition (Version 1.9) # published by the Open Source Initiative. -# Please submit bugfixes or comments via http://bugs.opensuse.org/ +# Please submit bugfixes or comments via https://bugs.opensuse.org/ # Name: perl-Net-Whois-RIPE -Version: 2.006001 +Version: 2.006002 Release: 0 %define cpan_name Net-Whois-RIPE -Summary: Pure-Perl Implementation of the Ripe Database Client -License: GPL-1.0+ or Artistic-1.0 +Summary: Pure-Perl implementation of the RIPE Database client +License: Artistic-1.0 OR GPL-1.0-or-later Group: Development/Libraries/Perl -Url: http://search.cpan.org/dist/Net-Whois-RIPE/ +Url: https://metacpan.org/release/%{cpan_name} Source0: https://cpan.metacpan.org/authors/id/A/AA/AASSAD/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml BuildArch: noarch @@ -42,11 +42,13 @@ %setup -q -n %{cpan_name}-%{version} %build -%{__perl} Makefile.PL INSTALLDIRS=vendor -%{__make} %{?_smp_mflags} +perl Makefile.PL INSTALLDIRS=vendor +make %{?_smp_mflags} %check -%{__make} test +# remote test, will fail +rm t/bug-hostname-constructor.t +make test %install %perl_make_install ++++++ Net-Whois-RIPE-2.006001.tar.gz -> Net-Whois-RIPE-2.006002.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-RIPE-2.006001/Changes new/Net-Whois-RIPE-2.006002/Changes --- old/Net-Whois-RIPE-2.006001/Changes 2017-11-02 20:10:39.000000000 +0100 +++ new/Net-Whois-RIPE-2.006002/Changes 2017-11-07 15:40:23.000000000 +0100 @@ -1,5 +1,9 @@ Revision history for net-whois-ripe +2.006002 2017-11-7 + - Fix a weird bug in Net::Whois::Generif::disconnect() occuring with older Perl versions (reproduced on 5.12) + Thanks to all the CPAN testers for their reports!!! + 2.006001 2017-11-2 - Fix bug when hostname was used in constructor - Dirty workaround to handle RADB until a complete handling is written diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-RIPE-2.006001/MANIFEST new/Net-Whois-RIPE-2.006002/MANIFEST --- old/Net-Whois-RIPE-2.006001/MANIFEST 2017-11-01 19:49:55.000000000 +0100 +++ new/Net-Whois-RIPE-2.006002/MANIFEST 2017-11-07 15:40:23.000000000 +0100 @@ -109,6 +109,8 @@ t/300-AFRINIC.t t/305-APNIC.t t/boilerplate.t +t/bug-hostname-constructor.t +t/bug-disconnect.t t/common.pl t/pod-coverage.t t/pod.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-RIPE-2.006001/META.json new/Net-Whois-RIPE-2.006002/META.json --- old/Net-Whois-RIPE-2.006001/META.json 2017-11-02 20:13:00.000000000 +0100 +++ new/Net-Whois-RIPE-2.006002/META.json 2017-11-07 15:42:12.000000000 +0100 @@ -4,7 +4,7 @@ "Luis Motta Campos <l...@cpan.org>" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 7.1002, CPAN::Meta::Converter version 2.150005", + "generated_by" : "ExtUtils::MakeMaker version 7.3, CPAN::Meta::Converter version 2.143240", "license" : [ "unknown" ], @@ -48,6 +48,5 @@ "url" : "https://github.com/arhuman/Net-Whois-RIPE" } }, - "version" : 2.006001, - "x_serialization_backend" : "JSON::PP version 2.27300_01" + "version" : "2.006002" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-RIPE-2.006001/META.yml new/Net-Whois-RIPE-2.006002/META.yml --- old/Net-Whois-RIPE-2.006001/META.yml 2017-11-02 20:13:00.000000000 +0100 +++ new/Net-Whois-RIPE-2.006002/META.yml 2017-11-07 15:42:12.000000000 +0100 @@ -6,7 +6,7 @@ configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 7.1002, CPAN::Meta::Converter version 2.150005' +generated_by: 'ExtUtils::MakeMaker version 7.3, CPAN::Meta::Converter version 2.143240' license: unknown meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -25,5 +25,4 @@ resources: bugtracker: https://github.com/arhuman/Net-Whois-RIPE/issues repository: https://github.com/arhuman/Net-Whois-RIPE -version: 2.006001 -x_serialization_backend: 'CPAN::Meta::YAML version 0.018' +version: '2.006002' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-RIPE-2.006001/lib/Net/Whois/Generic.pm new/Net-Whois-RIPE-2.006002/lib/Net/Whois/Generic.pm --- old/Net-Whois-RIPE-2.006001/lib/Net/Whois/Generic.pm 2017-11-02 20:10:07.000000000 +0100 +++ new/Net-Whois-RIPE-2.006002/lib/Net/Whois/Generic.pm 2017-11-07 15:40:06.000000000 +0100 @@ -378,9 +378,9 @@ my $self = shift; if ($self->is_connected) { my $socket = $self->{__state}{socket}; - $socket->close; $self->{__state}{ioselect}->remove($socket) if $self->{__state}{ioselect}; + $socket->close; delete $self->{__state}{socket}; } } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-RIPE-2.006001/lib/Net/Whois/RIPE.pm new/Net-Whois-RIPE-2.006002/lib/Net/Whois/RIPE.pm --- old/Net-Whois-RIPE-2.006001/lib/Net/Whois/RIPE.pm 2017-11-02 20:10:39.000000000 +0100 +++ new/Net-Whois-RIPE-2.006002/lib/Net/Whois/RIPE.pm 2017-11-07 15:40:23.000000000 +0100 @@ -28,11 +28,11 @@ =head1 VERSION -Version 2.006000 +Version 2.006002 =cut -our $VERSION = 2.006001; +our $VERSION = 2.006002; =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-RIPE-2.006001/t/04-generic.t new/Net-Whois-RIPE-2.006002/t/04-generic.t --- old/Net-Whois-RIPE-2.006001/t/04-generic.t 2017-11-01 19:49:55.000000000 +0100 +++ new/Net-Whois-RIPE-2.006002/t/04-generic.t 2017-11-07 15:40:06.000000000 +0100 @@ -46,11 +46,6 @@ # is_connected() ok $c->is_connected, 'The client is connected.'; - # reconnect() - eval {$c->reconnect }; - ok !$@,'The client re-connected without dying.'; - ok $c->is_connected, 'The client is connected (once more).'; - # ios() isa_ok $c->ios, 'IO::Select'; ok $c->ios->count >= 1, @@ -66,6 +61,7 @@ my $as_set; eval { ($as_set) = $c->query('AS-JAGUAR', {type => 'AsSet'}) }; ok !$@, q{Client performs queries without dying $@}; + ok($as_set, "Net::Whois::Object::AsSet returned for 'AS-JAGUAR' query"); isa_ok $as_set, 'Net::Whois::Object::AsSet'; } @@ -93,19 +89,30 @@ eval { @objects = Net::Whois::Generic->query('AS30781', {attribute => 'remarks'}) }; SKIP: { + my $not_string; skip "Network issue",14 if ( $@ =~ /IO::Socket::INET/ ); for my $object (@objects) { - ok(!ref($object), "query() : String returned for 'remarks' attribute filter") + $not_string = ref($object) if ref($object); } + ok(!$not_string, "Only string returned for 'remarks' attribute filter on 'AS30781' query"); } eval { @objects = Net::Whois::Generic->query('AS30781') }; SKIP: { + my %objects; skip "Network issue",14 if ( $@ =~ /IO::Socket::INET/ ); for my $object (@objects) { - ok(ref($object) =~ /Net::Whois::Object/ , "query() : Object ".ref($object)." returned for 'remarks' attribute filter") + if (ref($object) =~ /Net::Whois::Object::([a-zA-Z]+)/ and !$objects{$object}) { + $objects{$1} = 1; + } else { + ok(ref($object), "Object returned for 'AS30781' query"); + } + } + + for my $t ('Information', 'AutNum', 'AsBlock') { + ok($objects{$t}, "Expected $t object returned sor 'AS30781' query"); } } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-RIPE-2.006001/t/bug-disconnect.t new/Net-Whois-RIPE-2.006002/t/bug-disconnect.t --- old/Net-Whois-RIPE-2.006001/t/bug-disconnect.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Net-Whois-RIPE-2.006002/t/bug-disconnect.t 2017-11-07 15:40:06.000000000 +0100 @@ -0,0 +1,54 @@ +use strict; +use warnings; +use Test::More qw( no_plan ); + +# synchronizes the {error,standard} output of this test. +# use IO::Handle; +# STDOUT->autoflush(1); +# STDERR->autoflush(1); + +our $class; +BEGIN { $class = 'Net::Whois::Generic'; use_ok $class; } + + my $c = $class->new( disconnected => 1 ); + + # connect() + eval { $c->connect }; + +SKIP: { + skip "Network issue",14 if ( $@ =~ /IO::Socket::INET/ ); + + ok (!$@, "The client connected without dying. $@"); + + # is_connected() + ok $c->is_connected, 'The client is connected.'; + + # reconnect() + eval {$c->reconnect }; + ok !$@,'The client re-connected without dying.'; + ok $c->is_connected, 'The client is connected (once more).'; + + # ios() + isa_ok $c->ios, 'IO::Select'; + ok $c->ios->count >= 1, + q{There's at least one handle registered with the IO::Select object.}; + + # socket() + isa_ok $c->socket, 'IO::Socket'; + + # query() RIPE + { + my $as_set; + eval { ($as_set) = $c->query('AS-JAGUAR', {type => 'AsSet'}) }; + ok !$@, q{Client performs queries without dying $@}; + ok($as_set, "Net::Whois::Object::AsSet returned for 'AS-JAGUAR' query"); + isa_ok $as_set, 'Net::Whois::Object::AsSet'; + } + + # disconnect() + eval { $c->disconnect }; + ok !$@ , 'The client disconnected without dying.'; + ok !$c->is_connected, 'The client is not connected (anymore).'; + + # DESTROY() +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-RIPE-2.006001/t/bug-hostname-constructor.t new/Net-Whois-RIPE-2.006002/t/bug-hostname-constructor.t --- old/Net-Whois-RIPE-2.006001/t/bug-hostname-constructor.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Net-Whois-RIPE-2.006002/t/bug-hostname-constructor.t 2017-11-02 20:10:07.000000000 +0100 @@ -0,0 +1,16 @@ +#!perl +use strict; +use warnings; +use Test::More tests => 2; + +use Net::Whois::Generic; +use Iterator; + +my $w = Net::Whois::Generic->new('hostname' => 'whois.radb.net'); + +my ($as_found) = $w->query('-T aut-num AS11344', + { type => 'AutNum' }); + +ok($as_found); +use Data::Dumper; +is($as_found->as_name(), 'METAWEB');