diff options
| author | Mike Gabriel <mike.gabriel@das-netzwerkteam.de> | 2017-06-23 14:00:31 +0200 |
|---|---|---|
| committer | Mike Gabriel <mike.gabriel@das-netzwerkteam.de> | 2017-06-23 14:00:31 +0200 |
| commit | 8c34bd481e109dd24bf8ca2b28b14b06a61834ab (patch) | |
| tree | 67009389c6d902d9b0dd79bfdb6834f7e9d9f1e5 /bin | |
| parent | 562fa3105983b5a4e6c646be1ea77a7ec1cc6a60 (diff) | |
| download | perl-Arctica-Telekinesis-Client-8c34bd481e109dd24bf8ca2b28b14b06a61834ab.tar.gz perl-Arctica-Telekinesis-Client-8c34bd481e109dd24bf8ca2b28b14b06a61834ab.tar.bz2 perl-Arctica-Telekinesis-Client-8c34bd481e109dd24bf8ca2b28b14b06a61834ab.zip | |
Regresssion fix for c00e6c31; declare $server_sock_id one scope level higher.
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/telekinesis-client | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/bin/telekinesis-client b/bin/telekinesis-client index d1a22d9..3172a1f 100755 --- a/bin/telekinesis-client +++ b/bin/telekinesis-client @@ -72,10 +72,11 @@ my $ACO = Arctica::Core::eventInit->new({ my $TeKiClient = Arctica::Telekinesis::Client->new($ACO); +my $server_sock_id; if ($#ARGV == -1) { - my $server_sock_id = $TeKiClient->get_tmp_servers_socket_id; + $server_sock_id = $TeKiClient->get_tmp_servers_socket_id; } else { - my $server_sock_id = $ARGV[0]; + $server_sock_id = $ARGV[0]; if ($server_sock_id =~ /([a-zA-Z0-9]*)/) { $server_sock_id = $1; } else { die; } |