From ee5839a2f6e4e97bfae814e43ccde3c7728c53d1 Mon Sep 17 00:00:00 2001
From: Martin Whitaker <mageia@martin-whitaker.me.uk>
Date: Sat, 3 Mar 2018 22:55:43 +0000
Subject: Fix some perl_checker warnings.

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

(limited to 'lib')

diff --git a/lib/MGA/DrakISO/Utils.pm b/lib/MGA/DrakISO/Utils.pm
index b0a942d..5dad0ba 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);
 }
@@ -77,7 +77,7 @@ sub run_in_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