Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-10-10 11:55:49 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix for bug 73249: perl warnings under 5.6.0.

Browse Source 
Patch by Chris Yeh <Chris.Yeh@nokia.com>
r= justdave@syndicomm.com
This commit is contained in:
justdave%syndicomm.com 2001-06-01 08:34:45 +00:00
parent 90d0a695a6
commit b2c86ed7e1
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
webtools/bugzilla/contrib/mysqld-watcher.pl
View File

@ -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");
}