From 535e48cf634755e42fff9ae3535ec041c14eb8b1 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Sat, 28 Nov 2015 23:44:37 +0000
Subject: [PATCH] [#250] Linux SSHColletor cannot handle uppercase MACs

---
 Netdisco/Changes                                         | 1 +
 Netdisco/lib/App/Netdisco/SSHCollector/Platform/Linux.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/Netdisco/Changes b/Netdisco/Changes
index 890b5e65..1349b861 100644
--- a/Netdisco/Changes
+++ b/Netdisco/Changes
@@ -7,6 +7,7 @@
   [BUG FIXES]
 
   * [#255] undefined host error in netdisco-do psql
+  * [#250] Linux SSHColletor cannot handle uppercase MACs
 
 2.033004 - 2015-11-16
 
diff --git a/Netdisco/lib/App/Netdisco/SSHCollector/Platform/Linux.pm b/Netdisco/lib/App/Netdisco/SSHCollector/Platform/Linux.pm
index c29af438..665f1fc6 100644
--- a/Netdisco/lib/App/Netdisco/SSHCollector/Platform/Linux.pm
+++ b/Netdisco/lib/App/Netdisco/SSHCollector/Platform/Linux.pm
@@ -62,7 +62,7 @@ sub arpnip {
     my @lines = split(m/\n/, $before);
 
     # 192.168.1.1 ether 00:b6:aa:f5:bb:6e C eth1
-    my $linereg = qr/([0-9\.]+)\s+ether\s+([a-f0-9:]+)/;
+    my $linereg = qr/([0-9\.]+)\s+ether\s+([a-fA-F0-9:]+)/;
 
     foreach my $line (@lines) {
         if ($line =~ $linereg) {