From a5745ea516f7bbaa4e5b551dfd3bfa60192cb0da Mon Sep 17 00:00:00 2001 From: Petr Baudis Date: Sat, 3 Dec 2011 15:46:27 +0100 Subject: [PATCH] client/example.pl PORT: Implement commandline override --- client/example.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/client/example.pl b/client/example.pl index ab67494..3254d49 100755 --- a/client/example.pl +++ b/client/example.pl @@ -126,7 +126,8 @@ sub take_action($%) { # connect my ($remote_host, $remote_port, $socket); $remote_host = "localhost"; -$remote_port = 27753; +$remote_port = $ARGV[0]; +$remote_port ||= 27753; $socket = IO::Socket::INET->new( PeerAddr => $remote_host,