1# -*- cperl -*- 2# Copyright (c) 2004, 2011, Oracle and/or its affiliates 3# 4# This program is free software; you can redistribute it and/or modify 5# it under the terms of the GNU General Public License as published by 6# the Free Software Foundation; version 2 of the License. 7# 8# This program is distributed in the hope that it will be useful, 9# but WITHOUT ANY WARRANTY; without even the implied warranty of 10# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11# GNU General Public License for more details. 12# 13# You should have received a copy of the GNU General Public License 14# along with this program; if not, write to the Free Software 15# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1335 USA 16 17# This is a library file used by the Perl version of mysql-test-run, 18# and is part of the translation of the Bourne shell script with the 19# same name. 20 21use strict; 22 23sub gprof_collect ($@) { 24 my ($exe_mysqld, @gprof_dirs)= @_; 25 26 print ("Collecting gprof reports.....\n"); 27 28 foreach my $datadir (@gprof_dirs) 29 { 30 my $gprof_msg= "$datadir/gprof.msg"; 31 my $gprof_err= "$datadir/gprof.err"; 32 if ( -f "$datadir/gmon.out" ) 33 { 34 system("gprof $exe_mysqld $datadir/gmon.out 2>$gprof_err >$gprof_msg"); 35 print ("GPROF output in $gprof_msg, errors in $gprof_err\n"); 36 } 37 } 38} 39 40 411; 42