Control: tag -1 patch On Wed, Aug 07, 2024 at 11:05:42AM +0300, Niko Tyni wrote: > Package: libsignal-mask-perl > Version: 0.008-3 > Severity: important > Tags: trixie sid > User: [email protected] > Usertags: perl-5.40-transition > > This package fails its autopkgtest checks with Perl 5.40 (currently > in experimental.)
> 72s # Name "Signal::Mask" used only once: possible typo at > /usr/share/perl5/Signal/Mask.pm line 22. > 72s not ok 1 - /usr/bin/perl -wc /usr/share/perl5/Signal/Mask.pm exited > successfully > 72s # Name "Signal::Pending" used only once: possible typo at > /usr/share/perl5/Signal/Pending.pm line 13. > 72s not ok 2 - /usr/bin/perl -wc /usr/share/perl5/Signal/Pending.pm > exited successfully Trivial patch attached, this fixes it for me. -- Niko Tyni [email protected]
From: Niko Tyni <[email protected]> Date: Sun, 25 Aug 2024 08:35:35 +0100 X-Dgit-Generated: 0.008-3 cd372add5fd90e99f8e7ee0cb55ce83c39c4c3e3 Subject: Silence "used only once" warnings with Perl 5.40 Bug-Debian: https://bugs.debian.org/1078116 --- diff --git a/lib/Signal/Mask.pm b/lib/Signal/Mask.pm index 87201c3..0a8e5b8 100644 --- a/lib/Signal/Mask.pm +++ b/lib/Signal/Mask.pm @@ -19,7 +19,10 @@ use Carp qw/croak/; my $sig_max = $Config{sig_count} - 1; -tie %Signal::Mask, __PACKAGE__; +{ + no warnings 'once'; + tie %Signal::Mask, __PACKAGE__; +} sub TIEHASH { my $class = shift; diff --git a/lib/Signal/Pending.pm b/lib/Signal/Pending.pm index 0ed408c..08ebb26 100644 --- a/lib/Signal/Pending.pm +++ b/lib/Signal/Pending.pm @@ -10,7 +10,10 @@ use Carp qw/croak/; my $sig_max = $Config{sig_count} - 1; -tie %Signal::Pending, __PACKAGE__; +{ + no warnings 'once'; + tie %Signal::Pending, __PACKAGE__; +} sub TIEHASH { my $class = shift;
