diff options
| -rw-r--r-- | lib/Hal/Cdroms.pm | 6 |
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 { |