From ecd3e21a8b998619a65149ac5b2bc94f4653e214 Mon Sep 17 00:00:00 2001
From: Lars Dieckow <ldieckow@sipwise.com>
Date: Wed, 27 Mar 2013 15:27:42 +0100
Subject: [PATCH] fix deprecation warning

http://p3rl.org/perl5140delta#Use-of-qw-...-as-parentheses
---
 lib/NGCP/Schema/billing.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/NGCP/Schema/billing.pm b/lib/NGCP/Schema/billing.pm
index 3169c5c3..c4d8a57b 100644
--- a/lib/NGCP/Schema/billing.pm
+++ b/lib/NGCP/Schema/billing.pm
@@ -71,7 +71,7 @@ method get_domain($reseller_id, $domain) {
             }
         )->all
     };
-    for my $status qw(active locked terminated) {
+    for my $status (qw(active locked terminated)) {
         $return{subscribers}{$status} = 0 unless exists $return{subscribers}{$status};
     }
     return \%return;