Raisecom. HW regexp bugfix

lib/SNMP/Info/Layer3/Raisecom.pm

@@ -100,8 +100,8 @@ sub main {
 
     #All another known ways to HW
     while (not defined($hw)) {
-        $hw = $obj->hw_oid_8886_6_140;
-        $hw =~ s/.*\s[v,V]ersion\s(.*)/$1/ if defined $1;
+        $obj->hw_oid_8886_6_140 =~ /.*[v,V]ersion\s+(.*)/;
+        $hw = $1 if defined $1;
         last;
     }