aboutsummaryrefslogtreecommitdiff
path: root/bin/telekinesis-client
diff options
context:
space:
mode:
authorMike Gabriel <mike.gabriel@das-netzwerkteam.de>2017-06-23 14:00:31 +0200
committerMike Gabriel <mike.gabriel@das-netzwerkteam.de>2017-06-23 14:00:31 +0200
commit8c34bd481e109dd24bf8ca2b28b14b06a61834ab (patch)
tree67009389c6d902d9b0dd79bfdb6834f7e9d9f1e5 /bin/telekinesis-client
parent562fa3105983b5a4e6c646be1ea77a7ec1cc6a60 (diff)
downloadperl-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/telekinesis-client')
-rwxr-xr-xbin/telekinesis-client5
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; }