brmlab/brmlife
4
0
Fork 0
mirror of https://github.com/brmlab/brmlife.git synced 2025-08-03 02:13:35 +02:00
Code Issues Projects Releases Packages Wiki Activity

client/example.pl PORT: Implement commandline override

Browse source
This commit is contained in:
Petr Baudis 2011-12-03 15:46:27 +01:00
parent 643e33c342
commit a5745ea516
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
client/example.pl
View file

@ -126,7 +126,8 @@ sub take_action($%) {
# connect # connect
my ($remote_host, $remote_port, $socket); my ($remote_host, $remote_port, $socket);
$remote_host = "localhost"; $remote_host = "localhost";
$remote_port = 27753; $remote_port = $ARGV[0];
$remote_port ||= 27753;
$socket = IO::Socket::INET->new( $socket = IO::Socket::INET->new(
PeerAddr => $remote_host, PeerAddr => $remote_host,