use only non-whitespace chars

diff --git a/lib/H1/Davolink.pm b/lib/H1/Davolink.pm
index 93c94bb..06b4b24 100644 (file)
--- 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;
                }
        }