Dear maintainer, I've prepared an NMU for dnsenum (versioned as 1.3.1-1.1). The diff is attached to this message.
Sorry for the rush, this was one of the last blockers of the ongoing perl 5.38 migration. Cheers, gregor -- .''`. https://info.comodo.priv.at -- Debian Developer https://www.debian.org : :' : OpenPGP fingerprint D1E1 316E 93A7 60A8 104D 85FA BB3A 6801 8649 AA06 `. `' Member VIBE!AT & SPI Inc. -- Supporter Free Software Foundation Europe `-
diff -Nru dnsenum-1.3.1/debian/changelog dnsenum-1.3.1/debian/changelog --- dnsenum-1.3.1/debian/changelog 2022-10-25 19:05:15.000000000 +0200 +++ dnsenum-1.3.1/debian/changelog 2024-01-17 19:27:32.000000000 +0100 @@ -1,3 +1,13 @@ +dnsenum (1.3.1-1.1) unstable; urgency=medium + + * Non-maintainer upload. + * Fix "autopkgtest failure with Perl 5.38: Smartmatch is deprecated": + add patch perl5.38_smartmatch.patch, replacing smartmatch with a plain + grep(). + (Closes: #1060710) + + -- gregor herrmann <gre...@debian.org> Wed, 17 Jan 2024 19:27:32 +0100 + dnsenum (1.3.1-1) unstable; urgency=medium * New upstream version 1.3.1. diff -Nru dnsenum-1.3.1/debian/patches/perl5.38_smartmatch.patch dnsenum-1.3.1/debian/patches/perl5.38_smartmatch.patch --- dnsenum-1.3.1/debian/patches/perl5.38_smartmatch.patch 1970-01-01 01:00:00.000000000 +0100 +++ dnsenum-1.3.1/debian/patches/perl5.38_smartmatch.patch 2024-01-17 19:21:35.000000000 +0100 @@ -0,0 +1,32 @@ +Description: Stop using smartmatch + smartmatch is deprecated in perl 5.38, throwing warnings, + and will be removed in perl 5.42 +Origin: vendor +Bug-Debian: https://bugs.debian.org/1060710 +Author: gregor herrmann <gre...@debian.org> +Last-Update: 2024-01-13 + +--- a/dnsenum.pl ++++ b/dnsenum.pl +@@ -50,9 +50,6 @@ + use strict; + use warnings + ; #it complains about uninitialized values when it doesn't find address in RR; need to fix later +-no +- if $] >= 5.018, 'warnings', +- "experimental::smartmatch"; # Mute Experimental Warning + use Config; + use Term::ANSIColor; + use Getopt::Long; +@@ -746,9 +743,9 @@ + ##we only print / add the result if it doesn't match the wildcardaddress + if ( + !( +- $rr->can('address') && $rr->address ~~ @wildcardaddress ++ $rr->can('address') && grep { $_ eq $rr->address } @wildcardaddress + ) +- && !( $rr->name ~~ @wildcardcname ) ++ && !( grep { $_ eq $rr->name } @wildcardcname ) + ) + { + printrr( $rr->string ); diff -Nru dnsenum-1.3.1/debian/patches/series dnsenum-1.3.1/debian/patches/series --- dnsenum-1.3.1/debian/patches/series 2022-10-25 19:05:15.000000000 +0200 +++ dnsenum-1.3.1/debian/patches/series 2024-01-17 19:21:35.000000000 +0100 @@ -1 +1,2 @@ 010_fix-usage-output.patch +perl5.38_smartmatch.patch
signature.asc
Description: Digital Signature
