From 377cbbb6d1ac3ebf6db3d0e3b26b3a738750b162 Mon Sep 17 00:00:00 2001 From: Guillem Jover Date: Wed, 7 May 2025 00:29:08 +0200 Subject: [PATCH] MT#62763 perl: Suppress a perlcritic false positive MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit We are setting up a global die handler, so we cannot use «local» or the statement would not have the intended effect. Warned-by: perlcritic Fixes: Variables::RequireLocalizedPunctuationVars Change-Id: Ia0a433b58b4960c3394b25b1f144c0158b30ad1d --- perl/NGCP/Rtpengine/AutoTest.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/perl/NGCP/Rtpengine/AutoTest.pm b/perl/NGCP/Rtpengine/AutoTest.pm index a2483fd42..ff9213bc8 100644 --- a/perl/NGCP/Rtpengine/AutoTest.pm +++ b/perl/NGCP/Rtpengine/AutoTest.pm @@ -83,6 +83,8 @@ sub autotest_init { my $r = $c->req({command => 'ping'}); ok $r->{result} eq 'pong', 'ping works, daemon operational'; + # Setup a global die handler. + ## no critic (Variables::RequireLocalizedPunctuationVars) $SIG{__DIE__} = sub { terminate(@_); };