TT#30650 fix some syntax errors

these errors were missing imports and were discovered with "perl -c".
DbStrings.pm is a generated file, therefore to comply with the syntax check
here we need to change the generator. (this is completely cosmetic)

Change-Id: Ia2dba1f04cbdc3bb76245b19de1f34c8c8a3a2c0

lib/NGCP/Panel/Utils/DbStrings.pm

@@ -4,6 +4,7 @@ use warnings;
 use strict;
 
 sub localize {
+    my $c;
 
     $c->loc('Lock Level');
     $c->loc('See "lock_voip_account_subscriber" for a list of possible values. A lock value of "none" will not be returned to the caller. Read-only setting.');
@@ -195,6 +196,7 @@ sub localize {
 }
 
 sub form_strings {
+    my $c;
 
     #NGCP::Panel::Form::BillingFee
     #NGCP::Panel::Form::BillingFeeUpload

lib/NGCP/Panel/Utils/IntervalTree/Node.pm

@@ -3,6 +3,7 @@ package NGCP::Panel::Utils::IntervalTree::Node;
 use strict;
 use warnings;
 
+use POSIX ();
 use List::Util qw(min max);
 
 my $EMPTY_NODE = __PACKAGE__->new(0, 0, undef);

script/ngcp_panel_dump_db_strings.pl

@@ -17,13 +17,14 @@ my $s = NGCP::Schema->connect;
 open(my $fh, ">", $filepath)
     or die "cannot open file $!";
 
-print $fh <<HEADER_END;
+print $fh <<'HEADER_END';
 package NGCP::Panel::Utils::DbStrings;
 
 use warnings;
 use strict;
 
 sub localize {
+    my $c;
 
 HEADER_END
 
@@ -43,7 +44,7 @@ for my $row ($s->resultset('voip_preference_groups')->all) {
         if ($row->name);
 }
 
-print $fh "    return;\n}\n\nsub form_strings {\n\n";
+print $fh "    return;\n}\n\nsub form_strings {\n    my \$c;\n\n";
 
 my $path = 'lib/NGCP/Panel/Form/*.pm lib/NGCP/Panel/Form/*/*.pm';
 my @files = < $path >;