fixed RT #44845

xsawyerx · Sep 8, 2010 · 71b0f7c · 71b0f7c
1 parent 4012fca
commit 71b0f7c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git 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 [email protected], MARKLE)
+    * Fixed RT #24002 (thanks [email protected] and MARKLE)
+    * Fixed RT #44845 (thanks Mikhael <[email protected]>)
     * 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
@@ -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;
     }