diff options
| -rwxr-xr-x | lib/MDV/Snapshot/Hal.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/MDV/Snapshot/Hal.pm b/lib/MDV/Snapshot/Hal.pm index 374f771..65263fd 100755 --- a/lib/MDV/Snapshot/Hal.pm +++ b/lib/MDV/Snapshot/Hal.pm @@ -41,7 +41,7 @@ sub get_system_bus() { sub is_proper_device { - my ($device, $o_is_first_check) = @_; + my ($device, $o_is_first_check) = @_; # perl_checker: $device = Net::DBus::RemoteObject->new my $device_name = $device->QueryCapability('block') && $device->GetProperty('block.device'); return if !$device_name; my $bool = $device->QueryCapability('volume') && !$device->GetProperty('volume.is_disc') && @@ -50,9 +50,9 @@ sub is_proper_device { } sub find_removable_volumes { - my ($dbus) = @_; - my $hal = $dbus->get_service($hal_dn); - my $manager = $hal->get_object($manager_path, $hal_manager); + my ($dbus) = @_; # perl_checker: $dbus = Net::DBus->new + my $hal = $dbus->get_service($hal_dn); # perl_checker: $dbus = Net::DBus->new + my $manager = $hal->get_object($manager_path, $hal_manager); # perl_checker: $manager = Net::DBus::RemoteObject grep { is_proper_device($_, 1) } map { $hal->get_object($_, "$hal_dn.Device") } @{$manager->GetAllDevices}; } |