Minor fixes to make perl 5.8 happy and quiet!

tbsetup/snmpit.in

 #!/usr/bin/perl -w
 #
 # EMULAB-LGPL
-# Copyright (c) 2000-2005 University of Utah and the Flux Group.
+# Copyright (c) 2000-2006 University of Utah and the Flux Group.
 # All rights reserved.
 #
 
@@ -27,6 +27,24 @@ use English;
 use Getopt::Long;
 use strict;
 
+# Protos
+sub parseStatusString($);
+sub debug($);
+sub doListVlans($);
+sub doListPorts($);
+sub doPortStatus($@);
+sub doGetStats($);
+sub doVlansFromTables($@);
+sub doReset($@);
+sub doMakeVlan($$@);
+sub doDeleteVlan($@);
+sub doVlanNumber($$);
+sub doPortControl($$@);
+sub doRecreateVlans($);
+sub doTrunkEnable($$@);
+sub doTrunkDisable($$);
+sub doRestorePortStatus($@);
+
 #
 # Defaults
 #

tbsetup/tbswap.in

@@ -1455,7 +1455,7 @@ sub undoFWNodes($$;@) {
     my @fwstate = ();
     my $zap = 1;
 
-    if (!defined(@nodes) || @nodes == 0) {
+    if (!@nodes || scalar(@nodes) == 0) {
 	@nodes = ExpNodes($pid, $eid, 1);
 	$doall = 1;
     }