Commit 00af9668 authored by Leigh Stoller's avatar Leigh Stoller

Minor little fixes to make perl 5.8 happy and quiet.

parent e21c076c
......@@ -72,6 +72,8 @@ use libtestbed;
# Protos
sub fatal($);
sub AddUser(@);
sub DelUser(@);
sub AddList(@);
sub SetListMembers(@);
sub ModifyMember(@);
......@@ -912,11 +914,11 @@ sub fatal($)
#
END {
my $saved_exitcode = $?;
if (defined(%IDhash)) {
if (%IDhash) {
dbmclose(%IDhash);
undef(%IDhash);
}
if (defined(%EMAILhash)) {
if (%EMAILhash) {
dbmclose(%EMAILhash);
undef(%EMAILhash);
}
......
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