Package: clusterssh
Version: 3.19.1-4
cssh in etch reports the following error messages about 100 times when
being invoked:
Use of uninitialized value in hash element at /usr/bin/cssh line 410.
Use of uninitialized value in numeric ne (!=) at /usr/bin/cssh line 414.
Use of uninitialized value in hash element at /usr/bin/cssh line 416.
Use of uninitialized value in numeric ne (!=) at /usr/bin/cssh line 420.
The following patch fixes the problem:
--- cssh.orig 2006-11-07 03:08:26.000000000 +0100
+++ cssh.hw 2006-12-11 11:19:40.000000000 +0100
@@ -395,30 +395,38 @@
foreach ( 0 .. $#keyboard )
{
- if(defined($keycodetosym { $keyboard[$_][0] }))
- {
- $keyboardmap{ $keycodetosym { $keyboard[$_][0] } } =
'n' . ($_ + $min);
- } else {
- logmsg(2, "Unknown keycode ", $keyboard[$_][0])
if($keyboard[$_][0] != 0);
- }
- if(defined($keycodetosym { $keyboard[$_][1] }))
- {
- $keyboardmap{ $keycodetosym { $keyboard[$_][1] } } =
's' . ($_ + $min);
- } else {
- logmsg(2, "Unknown keycode ", $keyboard[$_][1])
if($keyboard[$_][1] != 0);
+ if(defined $keyboard[$_][0]) {
+ if(defined($keycodetosym { $keyboard[$_][0] }))
+ {
+ $keyboardmap{ $keycodetosym { $keyboard[$_][0]
} } = 'n' . ($_ + $min);
+ } else {
+ logmsg(2, "Unknown keycode ", $keyboard[$_][0])
if($keyboard[$_][0] != 0);
+ }
}
- if(defined($keycodetosym { $keyboard[$_][2] }))
- {
- $keyboardmap{ $keycodetosym { $keyboard[$_][2] } } =
'a' . ($_ + $min);
- } else {
- logmsg(2, "Unknown keycode ", $keyboard[$_][2])
if($keyboard[$_][2] != 0);
- }
- if(defined($keycodetosym { $keyboard[$_][3] }))
- {
- $keyboardmap{ $keycodetosym { $keyboard[$_][3] } } =
'sa' . ($_ + $min);
- } else {
- logmsg(2, "Unknown keycode ", $keyboard[$_][3])
if($keyboard[$_][3] != 0);
+ if(defined $keyboard[$_][1]) {
+ if(defined($keycodetosym { $keyboard[$_][1] }))
+ {
+ $keyboardmap{ $keycodetosym { $keyboard[$_][1]
} } = 's' . ($_ + $min);
+ } else {
+ logmsg(2, "Unknown keycode ", $keyboard[$_][1])
if($keyboard[$_][1] != 0);
+ }
}
+ if(defined $keyboard[$_][2]) {
+ if(defined($keycodetosym { $keyboard[$_][2] }))
+ {
+ $keyboardmap{ $keycodetosym { $keyboard[$_][2]
} } = 'a' . ($_ + $min);
+ } else {
+ logmsg(2, "Unknown keycode ", $keyboard[$_][2])
if($keyboard[$_][2] != 0);
+ }
+ }
+ if(defined $keyboard[$_][3]) {
+ if(defined($keycodetosym { $keyboard[$_][3] }))
+ {
+ $keyboardmap{ $keycodetosym { $keyboard[$_][3]
} } = 'sa' . ($_ + $min);
+ } else {
+ logmsg(2, "Unknown keycode ", $keyboard[$_][3])
if($keyboard[$_][3] != 0);
+ }
+ }
# dont know these two key combs yet...
#$keyboardmap{ $keycodetosym { $keyboard[$_][4] } } = $_ + $min;
||/ Name Version Description
+++-====================-====================-========================================================
ii clusterssh 3.19.1-4 administer multiple ssh or rsh
shells simultaneously
ii libx11-protocol-perl 0.55-1 Perl module for the X Window
System Protocol, version 11
ii openssh-client 4.3p2-6 Secure shell client, an
rlogin/rsh/rcp replacement
ii perl-tk 804.027-7 Perl module providing the Tk
graphics library.
ii xterm 222-1 X terminal emulator
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
