Package: release.debian.org
Severity: normal
Tags: buster
User: release.debian....@packages.debian.org
Usertags: pu
X-Debbugs-Cc: Debian Perl Group <pkg-perl-maintain...@lists.alioth.debian.org>
* Add a patch to change the default host from the defunct
freedb.freedb.org to gnudb.gnudb.org. (Closes: #991089)
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 2022-08-27 21:28:48.000000000
+0300
@@ -1,3 +1,18 @@
+libnet-freedb-perl (0.10-2~deb10u1) buster; urgency=medium
+
+ * Non-maintainer upload.
+ * Rebuild for buster.
+
+ -- Adrian Bunk <b...@debian.org> Sat, 27 Aug 2022 21:28:48 +0300
+
+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 <gre...@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 <gre...@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>dshu...@cpan.orge<gt>
+ Peter Pentchev E<lt>r...@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
