explicit method calls

fusioninventory · Jun 18, 2011 · bd41d3a · bd41d3a
1 parent ba9ee29
commit bd41d3a
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/lib/FusionInventory/Agent/Task/NetDiscovery.pm b/lib/FusionInventory/Agent/Task/NetDiscovery.pm
@@ -623,25 +623,25 @@ sub _discoverByNetbios {
     my $ns = $nb->node_status($ip);
     return unless $ns;
 
-    for my $rr ($ns->names) {
-        if ($rr->suffix == 0 && $rr->G eq "GROUP") {
+    for my $rr ($ns->names()) {
+        if ($rr->suffix() == 0 && $rr->G() eq "GROUP") {
             $device->{WORKGROUP} = getSanitizedString($rr->name);
         }
-        if ($rr->suffix == 3 && $rr->G eq "UNIQUE") {
+        if ($rr->suffix() == 3 && $rr->G() eq "UNIQUE") {
             $device->{USERSESSION} = getSanitizedString($rr->name);
         }
-        if ($rr->suffix == 0 && $rr->G eq "UNIQUE") {
-            my $machine = $rr->name unless $rr->name =~ /^IS~/;
+        if ($rr->suffix() == 0 && $rr->G() eq "UNIQUE") {
+            my $machine = $rr->name() unless $rr->name() =~ /^IS~/;
             $device->{NETBIOSNAME} = getSanitizedString($machine);
         }
     }
 
     if (not exists($device->{MAC})) {
-        my $NetbiosMac = $ns->mac_address;
+        my $NetbiosMac = $ns->mac_address();
         $NetbiosMac =~ tr/-/:/;
         $device->{MAC} = $NetbiosMac;
     } elsif ($device->{MAC} !~ /^([0-9a-f]{2}([:]|$)){6}$/i) {
-        my $NetbiosMac = $ns->mac_address;
+        my $NetbiosMac = $ns->mac_address();
         $NetbiosMac =~ tr/-/:/;
         $device->{MAC} = $NetbiosMac;
     }