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

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

diff --git a/lib/Hal/Cdroms.pm b/lib/Hal/Cdroms.pm
index fc81f11..ea13282 100644
--- a/lib/Hal/Cdroms.pm
+++ b/lib/Hal/Cdroms.pm
@@ -92,7 +92,7 @@ sub _is_cdrom {
     my ($o, $udisks_path) = @_;
     my $device = _get_device($o, $udisks_path);
     my $drive = _get_drive($o, $device);
-    return unless $drive && _get_property($drive, 'Drive', 'Removable');
+    return if !($drive && _get_property($drive, 'Drive', 'Removable'));
     return unless member(_get_property($device, 'Block', 'IdType'), 'iso9660', 'udf');
     eval { _get_property($device, 'Filesystem', 'MountPoints') };
 }
@@ -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 {
-- 
cgit v1.2.1