From 37453226da88ecfce54fbedc05e568f3077edc80 Mon Sep 17 00:00:00 2001
From: iliajie <gpg@ilia.engineer>
Date: Sat, 12 Nov 2022 23:01:13 +0200
Subject: [PATCH] Fix to merge `proc-lib.pl` with master

---
 proc/proc-lib.pl | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/proc/proc-lib.pl b/proc/proc-lib.pl
index 703fb3de2..b5a81b0dd 100755
--- a/proc/proc-lib.pl
+++ b/proc/proc-lib.pl
@@ -295,12 +295,15 @@ if (!$@) {
 		open(STDERR, ">&".fileno($ttyfh));
 		close($ttyfh);		# Already dup'd
 		if ($binary) {
-			exec $cmd $binary;
+			my @args = &split_quoted_string($cmd);
+			my $args0 = $args[0];
+			$args[0] = $binary;
+			exec { $args0 } @args;
 			}
 		else {
 			exec($cmd);
 			}
-		print "Exec failed : $!\n";
+		print STDERR "Exec failed : $!\n";
 		exit 1;
 		}
 	$ptyfh->close_slave();
@@ -350,12 +353,15 @@ else {
 		open(STDERR, ">&STDOUT");
 		close($ptyfh);
 		if ($binary) {
-			exec $cmd $binary;
+			my @args = &split_quoted_string($cmd);
+			my $args0 = $args[0];
+			$args[0] = $binary;
+			exec { $args0 } @args;
 			}
 		else {
 			exec($cmd);
 			}
-		print "Exec failed : $!\n";
+		print STDERR "Exec failed : $!\n";
 		exit 1;
 		}
 	close($ttyfh);