Commit 95ab8689 authored by Leigh B. Stoller's avatar Leigh B. Stoller
Browse files

Minor fixes to make perl 5.8 happy and quiet!

parent 9cef1d8f
#!/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
#
......
......@@ -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;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment