From 320d4dd133144e95e946aebd27246d1fdf424eb9 Mon Sep 17 00:00:00 2001 From: Guillem Jover Date: Wed, 6 Nov 2024 20:27:45 +0100 Subject: [PATCH] MT#61459 Do not use Perl indirect object syntax This syntax is discouraged, and it is not enabled by default any longer starting with the 5.36 feature bundles. Stop using it so that we can eventually bump our minimum required Perl version. Fixes: Objects::ProhibitIndirectSyntax Warned-by: perlcritic Ref: https://metacpan.org/pod/feature#The-'indirect'-feature Change-Id: I353f5aa7f7ac12d64fb02b791b791394de4261fe --- utils/kernel-intercept-dump.pl | 2 +- utils/rtpengine-ctl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/utils/kernel-intercept-dump.pl b/utils/kernel-intercept-dump.pl index c5142fd06..b979c20f7 100755 --- a/utils/kernel-intercept-dump.pl +++ b/utils/kernel-intercept-dump.pl @@ -15,7 +15,7 @@ my $COMBINE = 1; # 0: don't combine any streams. each stream gets written to its own pcap file # 1: combine all streams of one call into one pcap file -my $i = new Linux::Inotify2 or die; +my $i = Linux::Inotify2->new or die; $i->blocking(0); $i->watch('/var/spool/rtpengine', IN_CLOSE_WRITE | IN_DELETE, \&handle_inotify) or die; diff --git a/utils/rtpengine-ctl b/utils/rtpengine-ctl index 1e98a24cf..2c02f1421 100755 --- a/utils/rtpengine-ctl +++ b/utils/rtpengine-ctl @@ -51,7 +51,7 @@ if (!$argumentstring || !$optret || $port <= 0 || $port > 65535) { } # create a connecting socket -my $socket = new IO::Socket::INET ( +my $socket = IO::Socket::INET->new( PeerHost => $ip, PeerPort => $port, Proto => 'tcp',