From e3c876a0b387611b19b3c79d8390578f6d0f0c27 Mon Sep 17 00:00:00 2001 From: Guillaume Rousse Date: Mon, 7 May 2012 12:22:10 +0200 Subject: [PATCH] avoid warnings for undefined values --- lib/FusionInventory/Agent/Tools/Network.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lib/FusionInventory/Agent/Tools/Network.pm b/lib/FusionInventory/Agent/Tools/Network.pm index a544bf919e..b038bded7c 100644 --- a/lib/FusionInventory/Agent/Tools/Network.pm +++ b/lib/FusionInventory/Agent/Tools/Network.pm @@ -71,6 +71,7 @@ sub getSubnetAddressIPv6 { sub hex2canonical { my ($address) = @_; + return unless $address; my @bytes = $address =~ /^(?:0x)?(..)(..)(..)(..)$/; return join('.', map { hex($_) } @bytes); @@ -78,6 +79,7 @@ sub hex2canonical { sub alt2canonical { my ($address) = @_; + return unless $address; my @bytes = $address =~ /^(?:0x)?(..)(..)(..)(..)(..)(..)$/; return join(':', @bytes);