mysql_handle_threads

mysql_handle_threads ()

{

    sudo gdb -ex 'set pagination 0' -ex 'thread apply all bt'

             --batch -p $(pidof -sx mysqld) |

    perl -ne 'if (/^$/) {

      if (eval { /handle_one/ && return 1 for @lines; 0 }) { print @lines}

      @lines=()

    };

    push @lines,$_'

}