From 08b1d3996f89d923fc16dd7f60434d66955c162a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 31 Dec 2020 10:39:43 +0100
Subject: perl_checker cleanups

---
 perl-install/install/install2.pm | 4 ++--
 perl-install/install/steps.pm    | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/install')

diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 3fea4f0ce..de48a6dbb 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -400,7 +400,7 @@ sub init_local_install {
     push @::auto_steps, 
 #      'selectLanguage', 'selectKeyboard', 'miscellaneous', 'selectInstallClass',
       'doPartitionDisks', 'formatPartitions';
-	eval { fs::mount::sys_kernel_debug(''); };  #- do it now so that when_load doesn't do it
+	eval { fs::mount::sys_kernel_debug('') };  #- do it now so that when_load doesn't do it
 	$o->{nomouseprobe} = 1;
 	$o->{mouse} = mouse::fullname2mouse('Universal|Any PS/2 & USB mice');
 }
@@ -703,7 +703,7 @@ sub main {
     $o->{stage2_phys_medium} = install::media::stage2_phys_medium($o->{method});
 
     if (-e '/tmp/media/DATE.txt') {
-        my @mount_entry = grep { $_ =~ m,/tmp/media, } cat_('/proc/mounts');
+        my @mount_entry = grep { m,/tmp/media, } cat_('/proc/mounts');
         my @mount_fields = split(/ /, $mount_entry[0]);
         log::l(run_program::get_stdout('blkid', '-s', 'LABEL', $mount_fields[0]));
         log::l('ISO date: ' . cat_('/tmp/media/DATE.txt'));
diff --git a/perl-install/install/steps.pm b/perl-install/install/steps.pm
index 285feb8a9..f19b8acc2 100644
--- a/perl-install/install/steps.pm
+++ b/perl-install/install/steps.pm
@@ -713,7 +713,7 @@ sub configureTimezone {
         my $pkg = install::pkgs::packageByName($o->{packages}, 'chrony');
         unless ($pkg && $pkg->flag_installed) {
             $pkg = install::pkgs::packageByName($o->{packages}, 'ntp');
-            $o->pkg_install('chrony') unless ($pkg && $pkg->flag_installed);
+            $o->pkg_install('chrony') unless $pkg && $pkg->flag_installed;
        }
     }
 
-- 
cgit v1.2.1