From 3175e83fde400fbbc8ab0aba832ae2396bbb14d5 Mon Sep 17 00:00:00 2001
From: Guillem Jover <gjover@sipwise.com>
Date: Tue, 29 Oct 2019 15:36:09 +0100
Subject: [PATCH] TT#68300 Use ->() instead of deprecated & sigil

Change-Id: I42557b823af44f9d8c230018f8cc0a4086b94a59
---
 bin/ngcp-credit-warning | 4 ++--
 bin/ngcp-fraud-notifier | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/bin/ngcp-credit-warning b/bin/ngcp-credit-warning
index d907071..1fe99e1 100755
--- a/bin/ngcp-credit-warning
+++ b/bin/ngcp-credit-warning
@@ -114,11 +114,11 @@ sub get_data {
         my $res_hash = $res->as_hash;
         my $data = $res_hash->{_embedded}{'ngcp:'.$link};
         if ('ARRAY' eq ref $data) {
-            unless (&$process_code($data)) {
+            unless ($process_code->($data)) {
                 push(@result,@$data);
             }
         } elsif ($data) {
-            unless (&$process_code([$data])) {
+            unless ($process_code->([ $data ])) {
                 push(@result,$data);
             }
         }
diff --git a/bin/ngcp-fraud-notifier b/bin/ngcp-fraud-notifier
index cdb2a9d..8c6795f 100755
--- a/bin/ngcp-fraud-notifier
+++ b/bin/ngcp-fraud-notifier
@@ -90,7 +90,7 @@ sub get_data {
             push(@result,$data);
         }
         if (defined $code and 'CODE' eq ref $code) {
-            &$code(\@result);
+            $code->(\@result);
             @result = ();
         }
     }