From 4e6a452c87cec5e3e2b3f3b431c327f94e6ed1d1 Mon Sep 17 00:00:00 2001
From: Eric Miller <>
Date: Wed, 9 Jul 2008 01:53:16 +0000
Subject: [PATCH] ## no critic on string eval

---
 Info/IEEE802dot11.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Info/IEEE802dot11.pm b/Info/IEEE802dot11.pm
index 84c1a68d..1cbe485b 100644
--- a/Info/IEEE802dot11.pm
+++ b/Info/IEEE802dot11.pm
@@ -165,7 +165,8 @@ sub dot11_cur_tx_pwr_mw {
     foreach my $idx (keys %$cur) {
         my $pwr = $cur->{$idx};
         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};
         } else {
             next;