From ad059c32dfae54ba74ff6788cd83a10546108f4b Mon Sep 17 00:00:00 2001
From: Alexander Lutay <alutay@sipwise.com>
Date: Thu, 17 May 2018 13:43:31 +0200
Subject: [PATCH] TT#29620 Clean TAP test warning:
 ProhibitCommaSeparatedStatements = Comma used to separate statements

Change-Id: Ib43df167f8133289bd2762f53b3894aaf75b0be4
---
 lib/NGCP/Panel/Controller/Customer.pm | 6 +++---
 lib/NGCP/Panel/Utils/Invoice.pm       | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/lib/NGCP/Panel/Controller/Customer.pm b/lib/NGCP/Panel/Controller/Customer.pm
index 89a98a5eb4..85369ffa90 100644
--- a/lib/NGCP/Panel/Controller/Customer.pm
+++ b/lib/NGCP/Panel/Controller/Customer.pm
@@ -980,9 +980,9 @@ sub delete_fraud :Chained('base_restricted') :PathPart('fraud/delete') :Args(1)
     if($fraud_prefs) {
         try {
             $fraud_prefs->update({
-                "fraud_".$type."_limit" => undef,
-                "fraud_".$type."_lock" => undef,
-                "fraud_".$type."_notify" => undef,
+                "fraud_${type}_limit" => undef,
+                "fraud_${type}_lock" => undef,
+                "fraud_${type}_notify" => undef,
             });
         } catch($e) {
             NGCP::Panel::Utils::Message::error(
diff --git a/lib/NGCP/Panel/Utils/Invoice.pm b/lib/NGCP/Panel/Utils/Invoice.pm
index 51cb126e58..2369b74f4f 100644
--- a/lib/NGCP/Panel/Utils/Invoice.pm
+++ b/lib/NGCP/Panel/Utils/Invoice.pm
@@ -25,7 +25,7 @@ sub get_invoice_amounts{
         $customer_contract->{add_vat}
         ?
             $invoice->{amount_net} * ($customer_contract->{vat_rate}/100)
-            : 0,
+            : 0;
     $invoice->{amount_total} =  $invoice->{amount_net} + $invoice->{amount_vat};
     return $invoice;
 }
@@ -166,7 +166,7 @@ sub create_invoice{
         amount_vat   => $invoice_data->{amount_vat},
         amount_total => $invoice_data->{amount_total},
     };
-    $vars->{calls} = $calllist,
+    $vars->{calls} = $calllist;
     $vars->{zones} = {
         totalcost => $balance->cash_balance_interval,
         data => [ values(%{ $zonecalls }) ],