Bug#1132880: trixie-pu: package libfinance-quote-perl/1.65-1+deb13u1

[Sébastien Villemot]

Package: release.debian.org
Severity: normal
Tags: trixie
X-Debbugs-Cc: libfinance-quote-perl at packages.debian.org
Control: affects -1 + src:libfinance-quote-perl
User: release.debian.org at packages.debian.org
Usertags: pu

Dear Release Team,

This proposed update aims at fixing a bug in libfinance-quote-perl, whose
purpose is to retrieve quotes of financial instruments from online sources.

One of those online sources has recently changed its output, so that
libfinance-quote-perl fails to correctly parse the corresponding date field, as
described in #1132870.

The fix is minimal (trimming some extra spaces during parsing), so that the
risk involved is very low. Moreover, the fix only modifies the parser for that
specific source, and not the parser of other sources supported by the package.

The debdiff is attached.

I have verified that, with this patch, the package still passes its testsuite
(exercised both at build time and through autopkgtest CI).

Cheers,

--
⢀⣴⠾⠻⢶⣦⠀  Sébastien Villemot
⣾⠁⢠⠒⠀⣿⡁  Debian Developer
⢿⡄⠘⠷⠚⠋⠀  https://sebastien.villemot.name
⠈⠳⣄⠀⠀⠀⠀  https://www.debian.org
-------------- next part --------------
diff -Nru libfinance-quote-perl-1.65/debian/changelog libfinance-quote-perl-1.65/debian/changelog
--- libfinance-quote-perl-1.65/debian/changelog	2025-05-16 16:03:06.000000000 +0200
+++ libfinance-quote-perl-1.65/debian/changelog	2026-04-06 18:53:21.000000000 +0200
@@ -1,3 +1,11 @@
+libfinance-quote-perl (1.65-1+deb13u1) trixie; urgency=medium
+
+  * Team upload.
+  * xetra-date.patch: new patch, fixes date in quotes retrieved from XETRA
+    source (Closes: #1132870)
+
+ -- Sébastien Villemot <sebastien at debian.org>  Mon, 06 Apr 2026 18:53:21 +0200
+
 libfinance-quote-perl (1.65-1) unstable; urgency=medium
 
   * Import upstream version 1.65.
diff -Nru libfinance-quote-perl-1.65/debian/patches/series libfinance-quote-perl-1.65/debian/patches/series
--- libfinance-quote-perl-1.65/debian/patches/series	1970-01-01 01:00:00.000000000 +0100
+++ libfinance-quote-perl-1.65/debian/patches/series	2026-04-06 18:53:21.000000000 +0200
@@ -0,0 +1 @@
+xetra-date.patch
diff -Nru libfinance-quote-perl-1.65/debian/patches/xetra-date.patch libfinance-quote-perl-1.65/debian/patches/xetra-date.patch
--- libfinance-quote-perl-1.65/debian/patches/xetra-date.patch	1970-01-01 01:00:00.000000000 +0100
+++ libfinance-quote-perl-1.65/debian/patches/xetra-date.patch	2026-04-06 18:53:21.000000000 +0200
@@ -0,0 +1,27 @@
+Description: Fix date in quotes retrieved from XETRA source
+Origin: upstream, https://github.com/finance-quote/finance-quote/commit/2c4877d79b8a80098d2a52ec5f6df2d7d28d421b
+Bug: https://github.com/finance-quote/finance-quote/issues/556
+Bug-Debian: https://bugs.debian.org/1132870
+Reviewed-by: Sébastien Villemot <sebastien at debian.org>
+Last-Update: 2026-04-06
+---
+This patch header follows DEP-3: http://dep.debian.net/deps/dep3/
+--- a/lib/Finance/Quote/XETRA.pm
++++ b/lib/Finance/Quote/XETRA.pm
+@@ -20,6 +20,7 @@ package Finance::Quote::XETRA;
+ use strict;
+ use warnings;
+ use HTML::Entities;
++use String::Util qw(trim);
+ 
+ use constant DEBUG => $ENV{DEBUG};
+ use if DEBUG, 'Smart::Comments';
+@@ -102,7 +103,7 @@ sub xetra {
+ 
+         $td1 = ($lastvalue->look_down('_tag'=>'td'))[7];
+         @child = $td1->content_list;
+-        my $date = substr($child[0], 0, 8);
++        my $date = substr(trim($child[0]), 0, 8);
+ 
+         $td1 = ($lastvalue->look_down('_tag'=>'td'))[9];
+         @child = $td1->content_list;