Commit 77eeec30 authored by Leigh B. Stoller's avatar Leigh B. Stoller

Minor fixes to make perl 5.8.X happy and quiet.

parent bdd5e725
...@@ -45,6 +45,10 @@ use lib "@prefix@/lib"; ...@@ -45,6 +45,10 @@ use lib "@prefix@/lib";
use libdb; use libdb;
use libtestbed; use libtestbed;
# Protos
sub TryQuery();
sub RestartMysqld();
# Daemonize; # Daemonize;
if (!$debug) { if (!$debug) {
system("mv -f $LOGFILE ${LOGFILE}.old") system("mv -f $LOGFILE ${LOGFILE}.old")
......
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
# #
# EMULAB-COPYRIGHT # EMULAB-COPYRIGHT
# Copyright (c) 2005 University of Utah and the Flux Group. # Copyright (c) 2005, 2006 University of Utah and the Flux Group.
# All rights reserved. # All rights reserved.
# #
...@@ -66,6 +66,9 @@ my $NODEDEAD_EID= NODEDEAD_EID; ...@@ -66,6 +66,9 @@ my $NODEDEAD_EID= NODEDEAD_EID;
sub fatal($); sub fatal($);
sub notify($); sub notify($);
sub daemonize(); sub daemonize();
sub movetoreloading($);
sub evsysctrl($);
sub freefromrepositioning($);
my $reboot = "$TB/bin/node_reboot"; my $reboot = "$TB/bin/node_reboot";
my $evsys = "$TB/bin/eventsys_control"; my $evsys = "$TB/bin/eventsys_control";
......
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