Bug#991310: unblock: libnet-freedb-perl/0.10-2

[Adrian Bunk]

Package: release.debian.org
Severity: normal
User: release.debian.org at packages.debian.org
Usertags: unblock

Please unblock package libnet-freedb-perl

  * Add a patch to change the default host from the defunct
    freedb.freedb.org to gnudb.gnudb.org.
(change by gregor herrmann)

autopkgtest for libnet-freedb-perl/0.10-2: amd64: Pass, arm64: Pass, armhf: Pass, i386: Pass, ppc64el: Pass
-------------- next part --------------
diff -Nru libnet-freedb-perl-0.10/debian/changelog libnet-freedb-perl-0.10/debian/changelog
--- libnet-freedb-perl-0.10/debian/changelog	2015-12-01 23:24:47.000000000 +0200
+++ libnet-freedb-perl-0.10/debian/changelog	2021-07-16 21:53:11.000000000 +0300
@@ -1,3 +1,11 @@
+libnet-freedb-perl (0.10-2) unstable; urgency=medium
+
+  * Add a patch to change the default host from the defunct
+    freedb.freedb.org to gnudb.gnudb.org.
+    Thanks to Adrian Bunk for the bug report. (Closes: #991089)
+
+ -- gregor herrmann <gregoa at debian.org>  Fri, 16 Jul 2021 20:53:11 +0200
+
 libnet-freedb-perl (0.10-1) unstable; urgency=medium
 
   * Team upload
diff -Nru libnet-freedb-perl-0.10/debian/patches/replace_freedb_with_gnudb.patch libnet-freedb-perl-0.10/debian/patches/replace_freedb_with_gnudb.patch
--- libnet-freedb-perl-0.10/debian/patches/replace_freedb_with_gnudb.patch	1970-01-01 02:00:00.000000000 +0200
+++ libnet-freedb-perl-0.10/debian/patches/replace_freedb_with_gnudb.patch	2021-07-16 21:53:11.000000000 +0300
@@ -0,0 +1,52 @@
+Description: replace default host freedb.freedb.org with gnudb.gnudb.org.
+ Also remove reference to inaccessible documentation, and fix the non-online
+ test which checks for the default host.
+Origin: vendor
+Bug-Debian: https://bugs.debian.org/991089
+Author: gregor herrmann <gregoa at debian.org>
+Last-Update: 2021-07-16
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=137752
+Bug: https://rt.cpan.org/Ticket/Display.html?id=137752
+
+--- a/FreeDB.pm
++++ b/FreeDB.pm
+@@ -7,7 +7,7 @@
+ use File::Temp;
+ 
+ has hostname               => (is => 'ro', default => $ENV{HOSTNAME} // 'unknown');
+-has remote_host            => (is => 'rw', default => 'freedb.freedb.org');
++has remote_host            => (is => 'rw', default => 'gnudb.gnudb.org');
+ has remote_port            => (is => 'rw', default => 8880);
+ has user                   => (is => 'rw', default => $ENV{USER} // 'unknown');
+ has timeout                => (is => 'rw', default => 120);
+@@ -449,7 +449,7 @@
+ 
+ 
+     new() creates and returns a new Net::FreeDB object that is connected
+-    to either the given host or freedb.freedb.org as default.
++    to either the given host or gnudb.gnudb.org as default.
+ 
+ =item lscat
+ 
+@@ -723,10 +723,6 @@
+         giving the correct drive number will return in an
+         accurate return.
+ 
+-=head1 Resources
+-    The current version of the CDDB Server Protocol can be
+-    found at: http://ftp.freedb.org/pub/freedb/latest/CDDBPROTO
+-
+ =head1 AUTHOR
+     David Shultz E<lt>dshultz at cpan.orgE<gt>
+     Peter Pentchev E<lt>roam at ringlet.netE<gt>
+--- a/t/00-basic.t
++++ b/t/00-basic.t
+@@ -10,7 +10,7 @@
+     ok($freedb->hostname eq 'unknown', 'Error setting hostname');
+ }
+ 
+-ok($freedb->remote_host eq 'freedb.freedb.org', 'Error setting default host');
++ok($freedb->remote_host eq 'gnudb.gnudb.org', 'Error setting default host');
+ 
+ ok($freedb->remote_port == 8880, 'Error setting default port');
+ 
diff -Nru libnet-freedb-perl-0.10/debian/patches/series libnet-freedb-perl-0.10/debian/patches/series
--- libnet-freedb-perl-0.10/debian/patches/series	1970-01-01 02:00:00.000000000 +0200
+++ libnet-freedb-perl-0.10/debian/patches/series	2021-07-16 21:53:11.000000000 +0300
@@ -0,0 +1 @@
+replace_freedb_with_gnudb.patch