From 53e52cbe8b0e4b39c61d3d74aa30490725f9aa2f Mon Sep 17 00:00:00 2001 From: "justdave%syndicomm.com" Date: Fri, 1 Jun 2001 08:34:45 +0000 Subject: [PATCH] Fix for bug 73249: perl warnings under 5.6.0. Patch by Chris Yeh r= justdave@syndicomm.com --- webtools/bugzilla/contrib/mysqld-watcher.pl | 26 ++++++++++----------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/webtools/bugzilla/contrib/mysqld-watcher.pl b/webtools/bugzilla/contrib/mysqld-watcher.pl index d867c62c884..29e322771ea 100755 --- a/webtools/bugzilla/contrib/mysqld-watcher.pl +++ b/webtools/bugzilla/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"); +}