MT#20007 Lnp.pm fix warnings

Change-Id: Id1eef1878a072865dccb5eb72bbf19a14c017c71
9 years ago · 9f81fd1521
parent 171d79210a
commit 9f81fd1521
1 changed files with 2 additions and 2 deletions
--- a/lib/NGCP/Panel/Utils/Lnp.pm
+++ b/lib/NGCP/Panel/Utils/Lnp.pm
@ -9,7 +9,7 @@ use Scalar::Util qw(blessed);

 sub terminate_lnpnumbers {
    my ($c, $now, $number) = @_;
-    my ($items,$now) = _get_lnpnumber_rs($c, $now, $number);
+    (my $items,$now) = _get_lnpnumber_rs($c, $now, $number);
    my $schema = $c->model('DB');
    my $dtf = $schema->storage->datetime_parser;
    my $now_str = $dtf->format_datetime($now);
@ -69,7 +69,7 @@ sub _get_lnpnumber_rs {

 sub get_lnpnumber_rs {
    my ($c, $now, $number) = @_;
-    my ($rs,$now) = _get_lnpnumber_rs($c, $now, $number);
+    (my $rs,$now) = _get_lnpnumber_rs($c, $now, $number);
    return $rs;
 }