[miscperl] r269: LJSUP-9658: set mysql wait_timeout.

U   trunk/DBI/Role.pm

Modified: trunk/DBI/Role.pm
===================================================================
--- trunk/DBI/Role.pm	2011-08-15 02:21:08 UTC (rev 268)
+++ trunk/DBI/Role.pm	2011-08-31 03:00:39 UTC (rev 269)
@@ -325,6 +325,9 @@
     # check replication/busy processes... see if we should not use
     # this one
     undef $dbh if connection_bad($dbh, $opts);
+    
+    # default wait_timeout is 60 seconds.
+    $dbh->do("SET SESSION wait_timeout = 28800");
 
     # if this is an unshared connection, we don't want to put it
     # in the cache for somebody else to use later. (which happens below)