aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/Hal/Cdroms.pm8
1 files changed, 7 insertions, 1 deletions
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");