X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=torrus%2Fperllib%2FTorrus%2FDevDiscover%2FF5BigIp.pm;h=ec8ce3ac2ba9fd7ade5d4f5cfa1f3308eb11bc90;hb=4d4171d7ad39732b07839d90e1d74b9f84772d45;hp=e0d0770bb1e4851cfdd9e9a3787ac47e4a5200c0;hpb=0fb307c305e4bc2c9c27dc25a3308beae3a4d33c;p=freeside.git

diff --git a/torrus/perllib/Torrus/DevDiscover/F5BigIp.pm b/torrus/perllib/Torrus/DevDiscover/F5BigIp.pm
index e0d0770bb..ec8ce3ac2 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.2 2011-12-16 22:43:52 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 );
     }