===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -r1.27 -r1.28
--- trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2007/01/31 18:53:29	1.27
+++ trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2007/02/01 17:10:07	1.28
@@ -1,5 +1,5 @@
 package Net::Telnet::Trango;
-# $RedRiver: Trango.pm,v 1.26 2007/01/17 23:15:13 andrew Exp $
+# $RedRiver: Trango.pm,v 1.27 2007/01/31 18:53:29 mike Exp $
 use strict;
 use warnings;
 use base 'Net::Telnet';
@@ -506,8 +506,11 @@
 
   my $banner = $self->login_banner;
 
-  my ($type, $ver) = $banner =~ 
-    /Welcome to Trango Broadband Wireless (\S+)[\s-]+(.+)$/i;
+  my ($type, $sep1, $subtype, $sep2, $ver) = $banner =~ 
+    /Welcome to Trango Broadband Wireless (\S+)([\s-]+)(\S+)([\s-]+)(.+)$/i;
+
+  $type .= $sep1 . $subtype;
+  $ver = $subtype . $sep2 . $ver;
 
   $self->login_banner($banner);
   $self->host_type($type);