summaryrefslogtreecommitdiffstats
path: root/lib/MDV/Snapshot
diff options
context:
space:
mode:
authortv <tv@99302b65-d5f7-0310-b3dd-f8cd6f4e3d94>2008-09-29 16:34:20 +0000
committertv <tv@99302b65-d5f7-0310-b3dd-f8cd6f4e3d94>2008-09-29 16:34:20 +0000
commit74c031454a11d5c2abaa9937454b26c5a39b317a (patch)
tree8877d017f84f74ac71aa56e1bf30adbc5f871e8d /lib/MDV/Snapshot
parent22a09ee966bb5d0c043be047721b03d8673f53fa (diff)
downloaddraksnapshot-74c031454a11d5c2abaa9937454b26c5a39b317a.tar
draksnapshot-74c031454a11d5c2abaa9937454b26c5a39b317a.tar.gz
draksnapshot-74c031454a11d5c2abaa9937454b26c5a39b317a.tar.bz2
draksnapshot-74c031454a11d5c2abaa9937454b26c5a39b317a.tar.xz
draksnapshot-74c031454a11d5c2abaa9937454b26c5a39b317a.zip
(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
Diffstat (limited to 'lib/MDV/Snapshot')
-rwxr-xr-xlib/MDV/Snapshot/Hal.pm8
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};
}