X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=torrus%2Fperllib%2FTorrus%2FDevDiscover%2FF5BigIp.pm;h=db5693bbd98ca662a3bb15df8a1a26d2e7992a61;hp=e0d0770bb1e4851cfdd9e9a3787ac47e4a5200c0;hb=bd7c3e3b555f13ca3e2a119496c376c7c1b64c98;hpb=9cdee88c5fbadc5c9ab61b8b04c20589a40e7277

diff --git a/torrus/perllib/Torrus/DevDiscover/F5BigIp.pm b/torrus/perllib/Torrus/DevDiscover/F5BigIp.pm
index e0d0770bb..db5693bbd 100644
--- a/torrus/perllib/Torrus/DevDiscover/F5BigIp.pm
+++ b/torrus/perllib/Torrus/DevDiscover/F5BigIp.pm
@@ -14,7 +14,7 @@
 #  along with this program; if not, write to the Free Software
 #  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
 
-# $Id: F5BigIp.pm,v 1.1 2010-12-27 00:03:48 ivan Exp $
+# $Id: F5BigIp.pm,v 1.1.1.1.2.1 2011-12-16 22:43:56 ivan Exp $
 # Shawn Ferry <sferry at sevenspace dot com> <lalartu at obscure dot org>
 
 # F5 BigIp Load Balancer
@@ -167,8 +167,8 @@ sub discover
     my $result = $dd->retrieveSnmpOIDs( '4.x_globalAttrProductCode' );
     my $product_code = $result->{'4.x_globalAttrProductCode'};
 
-    $product_name = %f5_product->{$product_code}->{'product'};
-    if( %f5_product->{$product_code}->{'supported'} )
+    $product_name = $f5_product{$product_code}->{'product'};
+    if( $f5_product{$product_code}->{'supported'} )
     {
         $devdetails->setCap( 'BigIp_' . $product_name );
     }