← Back to branch summary

~ubuntu-branches/ubuntu/precise/mysql-5.1/precise

« back to all changes in this revision

Viewing changes to mysql-test/lib/mtr_gprof.pl

  • Committer: Bazaar Package Importer
  • Author(s): Norbert Tretkowski
  • Date: 2010-03-17 14:56:02 UTC
  • Revision ID: james.westby@ubuntu.com-20100317145602-x7e30l1b2sb5s6w6
Tags: upstream-5.1.45
Import upstream version 5.1.45

Show diffs side-by-side

added added

removed removed

Lines of Context:
mysql-test/lib/mtr_gprof.pl
 
1
# -*- cperl -*-
 
2
# Copyright (C) 2004 MySQL AB
 
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-1301  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
 
 
21
use strict;
 
22
 
 
23
sub 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
 
 
41
1;