use "if any" instead of "if grep", and various other occurences of "any", "every", "partition"

1 files changed, 2 insertions, 2 deletions

diff --git a/perl-install/common.pm b/perl-install/common.pm
index f44a0c0bf..3948cf7f9 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -72,7 +72,7 @@ sub availableRamMB()  {
     my $s = MDK::Common::System::availableRamMB();
     #- HACK HACK: if i810 and memsize
     require detect_devices;
-    return $s - 1 if $s == 128 && grep { $_->{driver} eq 'Card:Intel 810' } detect_devices::probeall();
+    return $s - 1 if $s == 128 && any { $_->{driver} eq 'Card:Intel 810' } detect_devices::probeall();
     $s;
 }
 
@@ -128,7 +128,7 @@ sub formatTime {
     }
 }
 
-sub usingRamdisk { scalar(grep { /ram3/ } cat_("/proc/mounts")) }
+sub usingRamdisk { any { /ram3/ } cat_("/proc/mounts") }
 
 sub expand_symlinks_but_simple {
     my ($f) = @_;