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 <[email protected]>
+
+- 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 <[email protected]>"
],
"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');
