(is_proper_device,find_removable_volumes) add perl_checker hints

git-svn-id: http://svn.mandriva.com/svn/soft/draksnapshot/trunk@247029 99302b65-d5f7-0310-b3dd-f8cd6f4e3d94

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};
 }