diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2020-05-04 21:26:22 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2020-05-06 08:07:31 +0200 |
| commit | f75341d7658a91a44b42d33a0f2c4654402bf77f (patch) | |
| tree | 1a967353a56b806afc60a0b24931cd83ffacaa55 /lib | |
| parent | a08300033d2ccaa6f2704535f977fb876da93b65 (diff) | |
| download | perl-Hal-Cdroms-f75341d7658a91a44b42d33a0f2c4654402bf77f.tar perl-Hal-Cdroms-f75341d7658a91a44b42d33a0f2c4654402bf77f.tar.gz perl-Hal-Cdroms-f75341d7658a91a44b42d33a0f2c4654402bf77f.tar.bz2 perl-Hal-Cdroms-f75341d7658a91a44b42d33a0f2c4654402bf77f.tar.xz perl-Hal-Cdroms-f75341d7658a91a44b42d33a0f2c4654402bf77f.zip | |
further perl_checker cleanups
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Hal/Cdroms.pm | 4 |
1 files 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 { |