From ca200b83bb5c0a15cde04399f3364600d5ce57e1 Mon Sep 17 00:00:00 2001 From: "justdave%syndicomm.com" <> Date: Fri, 1 Jun 2001 15:34:45 +0000 Subject: Fix for bug 73249: perl warnings under 5.6.0. Patch by Chris Yeh r= justdave@syndicomm.com --- contrib/mysqld-watcher.pl | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'contrib') diff --git a/contrib/mysqld-watcher.pl b/contrib/mysqld-watcher.pl index d867c62c8..29e322771 100755 --- a/contrib/mysqld-watcher.pl +++ b/contrib/mysqld-watcher.pl @@ -68,19 +68,6 @@ while ( ) { } } -# if we found anything, kill the database thread and send mail about it -# -if ($LONGEST[6] != 0) { - - system ("/usr/bonsaitools/bin/mysqladmin", "kill", $LONGEST[1]); - - # fire off an email telling the maintainer that we had to kill a thread - # - sendEmail($mail_from, Param("maintainer"), - "long running MySQL thread killed", - join(" ", @LONGEST) . "\n"); -} - # send an email message # # should perhaps be moved to somewhere more global for use in bugzilla as a @@ -100,3 +87,16 @@ sub sendEmail($$$$) { close(MTA); } + +# if we found anything, kill the database thread and send mail about it +# +if ($LONGEST[6] != 0) { + + system ("/usr/bonsaitools/bin/mysqladmin", "kill", $LONGEST[1]); + + # fire off an email telling the maintainer that we had to kill a thread + # + sendEmail($mail_from, Param("maintainer"), + "long running MySQL thread killed", + join(" ", @LONGEST) . "\n"); +} -- cgit v1.2.3-24-g4f1b