From 81a42ed35e61de32d82ac0e8c406841d5f37d53f Mon Sep 17 00:00:00 2001
From: Martin Whitaker <mageia@martin-whitaker.me.uk>
Date: Sat, 13 Jan 2018 17:41:42 +0000
Subject: Reduce perl_checker noise.

---
 lib/MGA/DrakISO/Utils.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lib/MGA/DrakISO/Utils.pm')

diff --git a/lib/MGA/DrakISO/Utils.pm b/lib/MGA/DrakISO/Utils.pm
index 6c85ae6..0f97080 100644
--- a/lib/MGA/DrakISO/Utils.pm
+++ b/lib/MGA/DrakISO/Utils.pm
@@ -64,7 +64,7 @@ sub run_as_root {
     if (@cmd > 1) {
         unshift @cmd, $sudo if $sudo;
     } else {
-        @cmd[0] = join(' ', $sudo, @cmd[0]);
+        $cmd[0] = join(' ', $sudo, @cmd[0]);
     }
     run_(@cmd);
 }
@@ -73,11 +73,11 @@ sub run_in_root {
     my ($root, $arch, @cmd) = @_;
 
     if (@cmd > 1) {
-        unshift @cmd, ( 'chroot',  $root );
-        unshift @cmd, ( 'setarch', $arch ) if $arch;
+        unshift @cmd, ('chroot',  $root);
+        unshift @cmd, ('setarch', $arch) if $arch;
         unshift @cmd, $sudo if $sudo;
     } else {
-        @cmd[0] = join(' ', $sudo, if_($arch, 'setarch', $arch), 'chroot', $root, @cmd[0]);
+        $cmd[0] = join(' ', $sudo, if_($arch, 'setarch', $arch), 'chroot', $root, @cmd[0]);
     }
     print "@cmd\n" if $::verbose > 2;
     local %ENV = %ENV;
-- 
cgit v1.2.1