135/snmp-info
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

## no critic on string eval

Browse Source
This commit is contained in:
Eric Miller
2008-07-09 01:53:16 +00:00
parent a70a895a29
commit 4e6a452c87
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Info/IEEE802dot11.pm
View File

@@ -165,7 +165,8 @@ sub dot11_cur_tx_pwr_mw {
foreach my $idx (keys %$cur) { foreach my $idx (keys %$cur) {
my $pwr = $cur->{$idx}; my $pwr = $cur->{$idx};
if ($pwr >= 1 && $pwr <= 8) { if ($pwr >= 1 && $pwr <= 8) {
my $mw = eval "\$dot11->dot11_tx_pwr_level_$pwr(\$idx)"; # ToDo - Look at string eval
my $mw = eval "\$dot11->dot11_tx_pwr_level_$pwr(\$idx)"; ## no critic
$dot11_cur_tx_pwr_mw->{$idx} = $mw->{$idx}; $dot11_cur_tx_pwr_mw->{$idx} = $mw->{$idx};
} else { } else {
next; next;