===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2006/06/28 23:00:15	1.6
+++ trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2006/06/28 23:33:18	1.7
@@ -1,5 +1,5 @@
 package Net::Telnet::Trango;
-# $RedRiver: Trango.pm,v 1.5 2006/01/03 00:22:19 andrew Exp $
+# $RedRiver: Trango.pm,v 1.6 2006/06/28 22:00:15 andrew Exp $
 use strict;
 use warnings;
 use base 'Net::Telnet';
@@ -560,7 +560,7 @@
 	my $self = shift;
 	my $suid = shift;
 
-	if ($suid =~ /\D/) {
+	if (lc($suid) ne 'all' || $suid =~ /\D/) {
 		return undef;
 	}