Bug#1150252: grep-excuses: handle UTF-8 with --wipnity

[gregor herrmann]

Package: devscripts
Version: 2.26.13
Severity: minor
Tags: patch

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA512

grep-excuses's --wipnity option doesn't handle the UTF-8 returned 
from 'https://qa.debian.org/excuses.php?package=$pkg' nicely:

% grep-excuses --wipnity libimager-qrcode-perl
No excuse for libimager-qrcode-perl

Applicable release.debian.org bugs:

  ⢠[DEL:#1150107: nmu: libimager-qrcode-perl_0.035+dfsg-2:DEL]


With the attached patch, which tells Perl to regard STDIN in the 
wipnity() sub as containing UTF-8, this looks much better:

% grep-excuses --wipnity libimager-qrcode-perl
No excuse for libimager-qrcode-perl

Applicable release.debian.org bugs:

  • [DEL:#1150107: nmu: libimager-qrcode-perl_0.035+dfsg-2:DEL]


There are other options, like setting STDIN to UTF-8 in general or 
explicitly decoding $dump and probably more, but this is a very 
minimal change only in this function.


Cheers,
gregor

-----BEGIN PGP SIGNATURE-----

iQKTBAEBCgB9FiEE0eExbpOnYKgQTYX6uzpoAYZJqgYFAmrGbxlfFIAAAAAALgAo
aXNzdWVyLWZwckBub3RhdGlvbnMub3BlbnBncC5maWZ0aGhvcnNlbWFuLm5ldEQx
RTEzMTZFOTNBNzYwQTgxMDREODVGQUJCM0E2ODAxODY0OUFBMDYACgkQuzpoAYZJ
qgbbaw//d9JCTEpr7jhltye9jIGaO9e5aGatMsT90cEMep9M5FV8eUfEN5jO97z5
3A1XClTpfzQ3TkXaO/suUS86FqTI6AydfLn1cMevlo6qy5pNgFUsgnVFGBAwdkeD
j5RLf21XRDDsG279tfDp3EKWKFvzGjfc43v78v7zZYp/1x5+hpWmlAOtMNnVwz+p
Z/vsptx3kqcQrnLj8YcRMAGAJgthQ8MQJxbtl2nOizj6caNdTi1wul0dBtFxYKk+
X2TLGzyFKp6iT2Tar1uv6UPBSk+HBLrM8DodEOPWArXbQGjxYEoS0xAqBIIpHaFv
BdJSlwVnQmNuaN2b34ybfCDcXVPmeZ23AHhQGWT3fKVC6Pqd9ygkeJhuGTcONxuU
kTuUd9PhBOKf4gqOOOzXu7qNpR/eYlhMxefqp3u7WNGGtQZ9rfQTGxxQOMip9Wjt
lOl3nZYPabinEwKAyygasT8ShEcomCstP6HW4XmRXApiAA8Z4uaGOiD5IAAYzJBL
g4d185FKi4M/VbVHLoj6ZqpKF9Ho0vWkw4mZFGvDvxuoMFhx9ti78kZ4qmzXzNRT
l9FDZMxIJZhlH4OK4h9dvEyIAdTgDhG9PUkW51NTCAVX/4VVefkdW7rzvGKHdu/e
e4Uby8AuUu2JTYbEa+3GAYm2Yx7A1R8HkU/c14A8gNUG3z7een8=
=Rvs8
-----END PGP SIGNATURE-----

--- /usr/bin/grep-excuses.orig  2026-10-07 17:49:45.272388324 +0200
+++ /usr/bin/grep-excuses       2026-10-07 18:02:48.346057780 +0200
@@ -131,6 +131,7 @@
           "$progname: wipnity mode requires the w3m package to be installed\n";
     }
 
+    use open IN => ":encoding(UTF-8)"; # $wipnityurl returns UTF-8
     while (my $package = shift) {
         my $dump = `w3m -dump -cols $columns "$wipnityurl$package"`;
         $dump =~ s/.*(Excuse for .*)\s+Maintainer page.*/$1/ms;