summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjustdave%syndicomm.com <>2001-06-01 17:34:45 +0200
committerjustdave%syndicomm.com <>2001-06-01 17:34:45 +0200
commitca200b83bb5c0a15cde04399f3364600d5ce57e1 (patch)
treee363169d7b6d0211cb97d1b6581bff0a1377ec99
parenta61ceda57cd3579bb48b927275f44072b5e11c81 (diff)
downloadbugzilla-ca200b83bb5c0a15cde04399f3364600d5ce57e1.tar.gz
bugzilla-ca200b83bb5c0a15cde04399f3364600d5ce57e1.tar.xz
Fix for bug 73249: perl warnings under 5.6.0.
Patch by Chris Yeh <Chris.Yeh@nokia.com> r= justdave@syndicomm.com
-rwxr-xr-xcontrib/mysqld-watcher.pl26
1 files changed, 13 insertions, 13 deletions
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 ( <STDIN> ) {
}
}
-# 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");
+}