Commit 0dad5cc7 authored by Leigh B. Stoller's avatar Leigh B. Stoller

Minor fixes to make perl 5.8 happy and quiet!

parent d877c1f3
......@@ -2,7 +2,7 @@
#
# EMULAB-COPYRIGHT
# 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.
#
use English;
......@@ -87,6 +87,10 @@ my %rebooted = ();
my $doautoload = 1;
my $dolastload = 1;
# Protos
sub SetupReload($$$);
sub FirewallSetup($);
# un-taint path
$ENV{'PATH'} = '/bin:/usr/bin:/usr/local/bin';
delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
......
#!/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.
#
......@@ -60,6 +60,9 @@ my %vlanids=();
my $snmpitErrorString;
# Protos
sub getTrunkPath($$$$);
#
# Initialize the library
#
......@@ -941,7 +944,7 @@ sub snmpitBulkwalkWarn($$;$) {
@result = snmpitDoIt($SNMPIT_BULKWALK,$sess,$var,$retries);
if (! defined @result) {
if (! @result) {
snmpitWarn("SNMP Bulkwalk failed");
}
return @result;
......@@ -957,7 +960,7 @@ sub snmpitBulkwalkFatal($$;$) {
@result = snmpitDoIt($SNMPIT_BULKWALK,$sess,$var,$retries);
if (! defined @result) {
if (! @result) {
snmpitFatal("SNMP Bulkwalk failed");
}
return @result;
......
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