===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -r1.32 -r1.33
--- trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2007/02/02 18:59:50	1.32
+++ trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2007/02/02 21:26:56	1.33
@@ -1,5 +1,5 @@
 package Net::Telnet::Trango;
-# $RedRiver: Trango.pm,v 1.31 2007/02/02 18:54:22 andrew Exp $
+# $RedRiver: Trango.pm,v 1.32 2007/02/02 18:59:50 andrew Exp $
 use strict;
 use warnings;
 use base 'Net::Telnet';
@@ -821,7 +821,7 @@
 
   my $vals = $self->tftpd( args => 'on' );
 
-  if ($vals->{'Tftpd'} eq 'listen') {
+  if (ref $vals eq 'HASH' && $vals->{'Tftpd'} eq 'listen') {
     return $vals;
   } else {
     return;