From 7c173666c0f0a063a54bdfd9fdf206f444f67e8b Mon Sep 17 00:00:00 2001
From: mivirl <>
Date: Wed, 24 Jan 2024 23:09:44 -0600
Subject: [PATCH] Update server port in client script; set argv[0] for exec'd
 commands

---
 src/client.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/client.pl b/src/client.pl
index 1a60e19..f50e5a9 100644
--- a/src/client.pl
+++ b/src/client.pl
@@ -5,7 +5,7 @@ use IO::Socket::INET;
 use POSIX "strftime";
 
 my $server_ip = "127.0.0.1";
-my $server_port = 8080;
+my $server_port = 46515;
 
 sub print_log {
     my @lines = @_;
@@ -19,7 +19,7 @@ sub ns_system {
     my ($command, @arguments) = @_;
     my $pid = open(my $fh_child, "-|");
     if (!$pid) {
-        exec { $command } @arguments;
+        exec { $command } $command, @arguments;
     } 
     my @output = <$fh_child>;
     close $fh_child;
@@ -29,7 +29,7 @@ sub ns_systemFH {
     my ($command, @arguments) = @_;
     my $pid = open(my $fh_child, "-|");
     if (!$pid) {
-        exec { $command } @arguments;
+        exec { $command } $command, @arguments;
     } 
     return $fh_child;
 }
-- 
2.39.5