===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/scripts/update_trango.pl,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -r1.25 -r1.26
--- trango/Net-Telnet-Trango/scripts/update_trango.pl	2007/02/02 17:50:09	1.25
+++ trango/Net-Telnet-Trango/scripts/update_trango.pl	2007/02/02 18:08:56	1.26
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $RedRiver: update_trango.pl,v 1.24 2007/02/02 16:29:58 mike Exp $
+# $RedRiver: update_trango.pl,v 1.25 2007/02/02 17:50:09 andrew Exp $
 ########################################################################
 # update_trango.pl *** Updates trango hosts with a new firmware
 # 
@@ -152,6 +152,14 @@
   my $fw_type = $conf->{firmware_type};
 
   my $ver = $t->ver;
+
+  if (! (
+    $ver->{$fw_type . ' Version'}  &&
+    $ver->{$fw_type . ' Checksum'} 
+  )) {
+    $l->sp("Error getting current version numbers");
+	return;
+  }
 
   if (
     $ver->{$fw_type . ' Version'}  eq $conf->{'ver'} &&