From 71b0f7ca8c0b9431e1fe54fd275eb3f35a021144 Mon Sep 17 00:00:00 2001
From: Sawyer X <xsawyerx@cpan.org>
Date: Wed, 8 Sep 2010 11:07:32 +0200
Subject: [PATCH] fixed RT #44845

---
 Changes           | 3 ++-
 lib/Sys/HostIP.pm | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

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 <miihael@sfc.ru>)
     * 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;
     }