aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/Hal/Cdroms.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Hal/Cdroms.pm b/lib/Hal/Cdroms.pm
index 65203ab..fc81f11 100644
--- a/lib/Hal/Cdroms.pm
+++ b/lib/Hal/Cdroms.pm
@@ -79,7 +79,7 @@ sub list {
my $manager = $o->{service}->get_object('/org/freedesktop/UDisks2/Manager');
- grep { _is_cdrom($o, $_); } @{$manager->GetBlockDevices(undef)};
+ grep { _is_cdrom($o, $_) } @{$manager->GetBlockDevices(undef)};
}
=head2 $cdroms->get_mount_point($udisks_path)
@@ -117,7 +117,7 @@ sub _get_property {
sub get_mount_point {
my ($o, $udisks_path) = @_;
my $mounts = _get_mount_points($o, $udisks_path);
- _int_array_to_string($$mounts[0]) if @{$mounts};
+ _int_array_to_string($$mounts[0]) if @$mounts;
}
sub _get_mount_points {
@@ -128,7 +128,7 @@ sub _get_mount_points {
sub _int_array_to_string {
my ($array) = @_;
- join('', map { $_ ? chr($_) : '' } @{$array});
+ join('', map { $_ ? chr($_) : '' } @$array);
}
sub _try {