Bug#1078113: libhtml-stripscripts-perl: autopkgtest regression with Perl 5.40: syntax.t failure

[Étienne Mollier]

Control: tags -1 + patch

Hi Niko,

> A fix might be to add "no warnings 'once';" to the block where the
> offending variable is used.

Thanks for the hint, there is one more occurrence hidden by the
initial error, but the following change allows the autopkgtest
to go through:

-------8<--------------8<--------------8<--------------8<-------
--- libhtml-stripscripts-perl.orig/lib/HTML/StripScripts.pm
+++ libhtml-stripscripts-perl/lib/HTML/StripScripts.pm
@@ -735,6 +735,7 @@
 
 =cut
 
+no warnings 'once';
 *output_end_document = \&output_start_document;
 
 =item output_start ( TEXT )
@@ -880,6 +881,7 @@
 *reject_end         = \&reject_start;
 *reject_text        = \&reject_start;
 *reject_declaration = \&reject_start;
+no warnings 'once';
 *reject_comment     = \&reject_start;
 *reject_process     = \&reject_start;
 
------->8-------------->8-------------->8-------------->8-------

This really feels more like a workaround than a proper fix, on
the other hand proper fix looks to probably require reorganizing
the code base with much more involved changes.  So I guess this
should be sufficient for now.

Have a nice day,  :)
-- 
  .''`.  Étienne Mollier <emollier at debian.org>
 : :' :  pgp: 8f91 b227 c7d6 f2b1 948c  8236 793c f67e 8f0d 11da
 `. `'   sent from /dev/pts/5, please excuse my verbosity
   `-    on air: Rocket Scientists - Regenerate
-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 833 bytes
Desc: not available
URL: <http://alioth-lists.debian.net/pipermail/pkg-perl-maintainers/attachments/20240821/fe8b7256/attachment.sig>