From f25c4f5aae968cdeba4ccee3580cbde109d2d2db Mon Sep 17 00:00:00 2001 From: Victor Seva Date: Mon, 20 Mar 2017 17:40:37 +0100 Subject: [PATCH] TT#12905 fix error introduced at 0b49ec43f3ee > Global symbol "@tmp" requires explicit package name Change-Id: I6e589c7d0b962711909217b7cbd2c84645e54bbb --- bin/ngcp-create_subscriber | 2 +- bin/ngcp-delete_domain | 2 +- bin/ngcp-terminate_subscriber | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/bin/ngcp-create_subscriber b/bin/ngcp-create_subscriber index 6abd39e..4071cb8 100755 --- a/bin/ngcp-create_subscriber +++ b/bin/ngcp-create_subscriber @@ -65,7 +65,7 @@ sub main { if ($dom->as_hash->{total_count} == 1) { my $tmp = $dom->as_hash->{_embedded}->{'ngcp:domains'}; if (ref $tmp eq 'ARRAY') { - $data{domain_id} = $tmp[0]->{id}; + $data{domain_id} = @{$tmp}[0]->{id}; } else { $data{domain_id} = $tmp->{id}; } diff --git a/bin/ngcp-delete_domain b/bin/ngcp-delete_domain index bf3fcd7..7c92bd3 100755 --- a/bin/ngcp-delete_domain +++ b/bin/ngcp-delete_domain @@ -59,7 +59,7 @@ sub main { if ($dom->as_hash->{total_count} == 1) { my $tmp = $dom->as_hash->{_embedded}->{'ngcp:domains'}; if (ref $tmp eq 'ARRAY') { - $dom_id = $tmp[0]->{id}; + $dom_id = @{$tmp}[0]->{id}; } else { $dom_id = $tmp->{id}; } diff --git a/bin/ngcp-terminate_subscriber b/bin/ngcp-terminate_subscriber index e3d3b4b..fcb59d3 100755 --- a/bin/ngcp-terminate_subscriber +++ b/bin/ngcp-terminate_subscriber @@ -54,7 +54,7 @@ sub main { if ($sub->as_hash->{total_count} == 1) { my $tmp = $sub->as_hash->{_embedded}->{'ngcp:subscribers'}; if (ref $tmp eq 'ARRAY') { - $sub_id = $tmp[0]->{id}; + $sub_id = @{$tmp}[0]->{id}; } else { $sub_id = $tmp->{id}; }