=================================================================== RCS file: /cvs/trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm,v retrieving revision 1.17 retrieving revision 1.18 diff -u -r1.17 -r1.18 --- trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm 2006/09/12 02:17:46 1.17 +++ trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm 2006/09/12 03:13:08 1.18 @@ -1,5 +1,5 @@ package Net::Telnet::Trango; -# $RedRiver: Trango.pm,v 1.16 2006/09/07 03:00:07 andrew Exp $ +# $RedRiver: Trango.pm,v 1.17 2006/09/12 01:17:46 andrew Exp $ use strict; use warnings; use base 'Net::Telnet'; @@ -248,8 +248,8 @@ =item remarks -Takes an optional argument "args => ", which sets the remarks. -If there is no argument, just returns the current remarks. +Takes an optional argument, which sets the remarks. +If there is no argument, returns the current remarks. =item sulog @@ -892,7 +892,6 @@ if ($c eq '[') { $in_key = 1; $in_val = 0; - $val = ''; } else { $in_key = 0; $in_val = 1;