From af4513b5d0a928b96147bec74e81b404733c589d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 4 May 2020 21:03:39 +0200
Subject: perl_checker cleanups

---
 lib/Hal/Cdroms.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lib')

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 {
-- 
cgit v1.2.1