From 7922132f3aa33c96efdf2da03c1e0852473f2d55 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sun, 29 Jan 2012 03:28:52 +0000
Subject: (_get_device) rename as _get_udisks_device(), returning the actual
 Device

(_get_device) return the Properties interface of the device
---
 lib/Hal/Cdroms.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lib/Hal/Cdroms.pm b/lib/Hal/Cdroms.pm
index af9f1f9..5e32c7d 100644
--- a/lib/Hal/Cdroms.pm
+++ b/lib/Hal/Cdroms.pm
@@ -85,10 +85,16 @@ Return the mount point associated to the C<hal_path>, or undef it is not mounted
 
 =cut
 
-sub _get_device {
+sub _get_udisks_device {
     my ($o, $hal_path) = @_;
     $o->{hal}->get_object($hal_path, "$hal_dn.Device");
 }
+
+sub _get_device {
+    my ($o, $hal_path) = @_;
+    $o->{hal}->get_object($hal_path, 'org.freedesktop.DBus.Properties');
+}
+
 sub _get_volume {
     my ($o, $hal_path) = @_;
     $o->{hal}->get_object($hal_path, "$hal_dn.Device.Volume");
-- 
cgit v1.2.1