diff --git a/Changes b/Changes index 43b3e4f..1bf2ca5 100644 --- a/Changes +++ b/Changes @@ -2,7 +2,8 @@ Revision history for Perl extension Sys::HostIP. 1.4 xx.09.10 * New maintainer: Sawyer X (XSAWYERX) - * Fixed RT #24002 (thanks gmc@gmcx.net, MARKLE) + * Fixed RT #24002 (thanks gmc@gmcx.net and MARKLE) + * Fixed RT #44845 (thanks Mikhael ) * Rewrote tests, doubled them * Using clean EXPORT_OK now * Moved to Dist::Zilla diff --git a/lib/Sys/HostIP.pm b/lib/Sys/HostIP.pm index e9a0c49..0a0c175 100644 --- a/lib/Sys/HostIP.pm +++ b/lib/Sys/HostIP.pm @@ -142,7 +142,8 @@ sub _get_unix_interface_info { if ( ($line =~/^\s+/) && ($interface) ) { $if_info{$interface} .= $line; } - elsif (($interface) = ($line =~/(^\w+(?:\d)?(?:\:\d+)?)/)) { + # FIXME: refactor this regex + elsif (($interface) = ($line =~/(^\w+(?:\d)?(?:\.\d+)?(?:\:\d+)?)/)) { $line =~s/\w+\d(\:)?\s+//; $if_info{$interface} = $line; }