fix perl warnings

This commit is contained in:
Jamie Cameron
2016-07-03 07:02:23 -07:00
parent c5a51403d1
commit 0e8d291d63

View File

@@ -2355,7 +2355,7 @@ foreach my $k (keys %znc) {
push(@rv, { 'name' => $name,
'type' => $type,
'index' => $index,
'view' => $view eq '*' ? undef : $view,
'view' => !$view || $view eq '*' ? undef : $view,
'file' => $file });
}
elsif ($k =~ /^view_(\d+)$/) {
@@ -2367,7 +2367,7 @@ foreach my $k (keys %znc) {
}
}
foreach my $z (@rv) {
if ($z->{'type'} ne 'view' && $z->{'view'} ne '*') {
if ($z->{'type'} ne 'view' && $z->{'view'} && $z->{'view'} ne '*') {
$z->{'viewindex'} = $viewidx{$z->{'view'}};
}
}