From 51713d35e79b8c839eaa6a3578ef7e1d497d2e3c Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Mon, 26 Sep 2011 12:17:34 +0200 Subject: [PATCH] use only non-whitespace chars --- lib/H1/Davolink.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/H1/Davolink.pm b/lib/H1/Davolink.pm index 93c94bb..06b4b24 100644 --- a/lib/H1/Davolink.pm +++ b/lib/H1/Davolink.pm @@ -31,7 +31,7 @@ sub info { foreach my $line ( $telnet->cmd("ifconfig br0") ) { chomp $line; if ($line=~/^br0.*/) { - my ($mac) = ($line=~/^br0.*HWaddr\s(.*)$/); + my ($mac) = ($line=~/^br0.*HWaddr\s(\S+)/); $rec->{"MAC"} = $mac; } } -- 2.20.1