diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2020-05-04 21:03:39 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2020-05-04 21:05:25 +0200 |
| commit | af4513b5d0a928b96147bec74e81b404733c589d (patch) | |
| tree | e29b5089fb6ea21fe79745eaf06d137302e775d1 | |
| parent | 7945acf659d10bd0fa103d077ea49cf63208034d (diff) | |
| download | perl-Hal-Cdroms-af4513b5d0a928b96147bec74e81b404733c589d.tar perl-Hal-Cdroms-af4513b5d0a928b96147bec74e81b404733c589d.tar.gz perl-Hal-Cdroms-af4513b5d0a928b96147bec74e81b404733c589d.tar.bz2 perl-Hal-Cdroms-af4513b5d0a928b96147bec74e81b404733c589d.tar.xz perl-Hal-Cdroms-af4513b5d0a928b96147bec74e81b404733c589d.zip | |
perl_checker cleanups
| -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 { |