Package: clusterssh
Version: 4.00.07-1
Severity: normal

In recent Sid Unstable the following output is now observed using the
current latest installed perl version.

  Use of uninitialized value in concatenation (.) or string at 
/usr/share/perl5/App/ClusterSSH.pm line 1107.

line 1107:  my $exec
                = "$config{terminal} $color $config{terminal_args} 
$config{terminal_allow_send_events} $config{terminal_title_opt} 
'$config{title}: $servers{$server}{connect_string}' -font 
$config{terminal_font} -e \"$^X\" \"-e\" '$helper_script' 
'$servers{$server}{pipenm}' '$servers{$server}{givenname}' 
'$servers{$server}{username}' '$servers{$server}{port}'";
            logmsg( 2, "Terminal exec line:\n$exec\n" );
            exec($exec) == 0 or warn("Failed: $!");

Running with --debug 2 produces:

11:11:42: Set temp name to: /tmp/9j6Oqgd9zK
Use of uninitialized value in concatenation (.) or string at 
/usr/share/perl5/App/ClusterSSH.pm line 1107.
11:11:42: Terminal exec line:
/usr/bin/xterm -bg \#000000 -fg \#EEBBEE  -xrm 
'XTerm.VT100.allowSendEvents:true' -T 'CSSH: devastation' -font 6x13 -e 
"/usr/bin/perl" "-e" '           my $pipe=shift;
                my $svr=shift;
                my $user=shift;
                my $port=shift;
                my $command="/usr/bin/ssh -x -o ConnectTimeout=10 ";
                open(PIPE, ">", $pipe) or die("Failed to open pipe: $!\n");
                print PIPE "$$:$ENV{WINDOWID}" 
                        or die("Failed to write to pipe: No such file or 
directory\n");
                close(PIPE) or die("Failed to close pipe: No such file or 
directory\n");
                if($svr =~ m/==$/)
                {
                        $svr =~ s/==$//;
                        warn("\nWARNING: failed to resolve IP address for 
$svr.\n\n"
                        );
                        sleep 5;
                }
                if($user) {
                        unless("ssh" eq "telnet") {
                                $user = $user ? "-l $user " : "";
                                $command .= $user;
                        }
                }
                if("ssh" eq "telnet") {
                        $command .= "$svr $port";
                } else {
                        if ($port) {
                                $command .= "-p $port $svr";
                        } else {
                          $command .= "$svr";
                        }
                }
                $command .= "  || sleep 5";
#               warn("Running:$command\n"); # for debug purposes
                exec($command);
' '/tmp/9j6Oqgd9zK' 'devastation' '' ''


-- System Information:
Debian Release: wheezy/sid
Debian Release: wheezy/sid
Architecture: amd64 (x86_64)

Kernel: Linux 3.0.0-1-amd64 (SMP w/4 CPU cores)
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash

Versions of packages clusterssh depends on:
ii  libx11-protocol-perl  0.56-2          
ii  openssh-client        1:5.9p1-1       
ii  perl-tk               1:804.029-1.1+b1
ii  xterm                 271-1           

Additionally:

ii  perl           5.12.4-4



-- 
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]

Reply via email to