From f03c954a4d5bdec8e34a4ea5a9f3fecfe990420d Mon Sep 17 00:00:00 2001
From: Guillem Jover <gjover@sipwise.com>
Date: Wed, 6 Nov 2024 16:26:15 +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: I714b22191afcc3b4d2c82c32e3ea359b08b3caed
---
 ngcp-cleanup-acc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ngcp-cleanup-acc b/ngcp-cleanup-acc
index f03d997..17c50c7 100755
--- a/ngcp-cleanup-acc
+++ b/ngcp-cleanup-acc
@@ -8,7 +8,7 @@ my $config_file = '/etc/ngcp-cleanup-tools/acc-cleanup.conf';
 
 my $c;
 eval {
-    $c = new NGCP::Cleanup(config_file => $config_file);
+    $c = NGCP::Cleanup->new(config_file => $config_file);
     $c->process;
 };
 if ($@) {