← Back to branch summary

~mathiaz/ubuntu/lucid/mysql-dfsg-5.1/zap-bug-552053

« back to all changes in this revision

Viewing changes to mysql-test/lib/v1/mtr_timer.pl

  • Committer: Bazaar Package Importer
  • Author(s): Mathias Gug
  • Date: 2009-06-25 12:55:45 UTC
  • mfrom: (1.1.2 upstream) (0.1.3 experimental)
  • Revision ID: james.westby@ubuntu.com-20090625125545-m8ogs96zzsri74xe
Tags: 5.1.34-1ubuntu1
https://launchpad.net/bugs/319843
https://launchpad.net/bugs/259477
https://launchpad.net/bugs/310211
https://launchpad.net/bugs/201799
https://launchpad.net/bugs/316974
http://bugs.debian.org/314785
http://bugs.debian.org/324834
http://bugs.debian.org/435165
http://bugs.debian.org/444216
https://launchpad.net/bugs/344816
https://launchpad.net/bugs/323755
* Merge from debian experimental (and 5.0 from main), remaining changes:
  - debian/mysql-server-5.1.config:
    + ask for MySQL root password at priority high instead of medium so
      that the password prompt is seen on a default install. (LP: #319843)
    + don't ask for root password when upgrading from a 5.0 install.
  - debian/control:
    + Make libmysqlclient16-dev a transitional package depending on
      libmysqlclient-dev.
    + Make libmysqlclient-dev conflict with libmysqlclient15-dev.
    + Don't build mysql-server, mysql-client, mysql-common and
      libmysqlclient15-dev binary packages since they're still provided
      by mysql-dfsg-5.0.
    + Make mysql-{client,server}-5.1 packages conflict and
      replace mysql-{client,server}-5.0, but not provide
      mysql-{client,server}.
    + Depend on a specific version of mysql-common rather than the src
      version of mysql-dfsg-5.1 since mysql-common is currently part of
      mysql-dfsg-5.0.
    + Lower mailx from a Recommends to a Suggests to avoid pulling in
      a full MTA on all installs of mysql-server. (LP: #259477)
  - debian/rules:
    + added -fno-strict-aliasing to CFLAGS to get around mysql testsuite
      build failures.
    + install mysql-test and sql-bench to /usr/share/mysql/ rather than
      /usr/.
  - debian/additions/debian-start.inc.sh: support ANSI mode (LP: #310211)
  - Add AppArmor profile:
    - debian/apparmor-profile: apparmor profile.
    - debian/rules, debian/mysql-server-5.0.files: install apparmor profile.
    - debian/mysql-server-5.0.dirs: add etc/apparmor.d/force-complain
    - debian/mysql-server-5.0.postrm: remove symlink in force-complain/ on
      purge.
    - debian/mysql-server-5.1.README.Debian: add apparmor documentation.
    - debian/additions/my.cnf: Add warning about apparmor. (LP: #201799)
    - debian/mysql-server-5.1.postinst: reload apparmor profiles.
  - debian/additions/my.cnf: remove language option. Error message files are
    located in a different directory in MySQL 5.0. Setting the language
    option to use /usr/share/mysql/english breaks 5.0. Both 5.0 and 5.1
    use a default value that works. (LP: #316974)
  - debian/mysql-server-5.1.mysql.init:
    + Clearly indicate that we do not support running multiple instances
      of mysqld by duplicating the init script.
      (closes: #314785, #324834, #435165, #444216)
    + Properly parameterize all existing references to the mysql config
      file (/etc/mysql/my.cnf).
  - debian/mysql-server-5.0.postinst: Clear out the second password
    when setting up mysql. (LP: #344816)
  - mysql-server-core-5.1 package for files needed by Akonadi:
    + debian/control: create mysql-server-core-5.1 package.
    + debian/mysql-server-core-5.1.files, debian/mysql-server-5.1.files:
      move core mysqld files to mysql-server-core-5.1 package.
  - Don't package sql-bench and mysql-test file.
* Dropped changes:
  - debian/patches/92_ssl_test_cert.dpatch: certificate expiration in
    test suite (LP: #323755). Included upstream.
* Dropped from 5.0:
  - apparmor profile:
    - debian/control: Recommends apparmor >= 2.1+1075-0ubuntu6. All version
      of apparmor-profile (>hardy) are higher than this version.
    - debian/mysql-server-5.0.preinst: create symlink for force-complain/
      on pre-feisty upgrades, upgrades where apparmor-profiles profile is
      unchanged (ie non-enforcing) and upgrades where the profile
      doesn't exist. Support for pre-hardy upgrades is no longer needed.
* debian/mysql-server-5.1.postinst: fix debian-sys-maint user creation.

Show diffs side-by-side

added added

removed removed

Lines of Context:
mysql-test/lib/v1/mtr_timer.pl
 
1
# -*- cperl -*-
 
2
# Copyright (C) 2005-2006 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 Errno;
 
22
use strict;
 
23
 
 
24
sub mtr_init_timers ();
 
25
sub mtr_timer_start($$$);
 
26
sub mtr_timer_stop($$);
 
27
sub mtr_timer_stop_all($);
 
28
 
 
29
 
 
30
##############################################################################
 
31
#
 
32
#  Initiate the structure shared by all timers
 
33
#
 
34
##############################################################################
 
35
 
 
36
sub mtr_init_timers () {
 
37
  my $timers = { timers => {}, pids => {}};
 
38
  return $timers;
 
39
}
 
40
 
 
41
 
 
42
##############################################################################
 
43
#
 
44
#  Start, stop and poll a timer
 
45
#
 
46
#  As alarm() isn't portable to Windows, we use separate processes to
 
47
#  implement timers.
 
48
#
 
49
##############################################################################
 
50
 
 
51
sub mtr_timer_start($$$) {
 
52
  my ($timers,$name,$duration)= @_;
 
53
 
 
54
  if ( exists $timers->{'timers'}->{$name} )
 
55
  {
 
56
    # We have an old running timer, kill it
 
57
    mtr_warning("There is an old timer running");
 
58
    mtr_timer_stop($timers,$name);
 
59
  }
 
60
 
 
61
 FORK:
 
62
  {
 
63
    my $tpid= fork();
 
64
 
 
65
    if ( ! defined $tpid )
 
66
    {
 
67
      if ( $! == $!{EAGAIN} )           # See "perldoc Errno"
 
68
      {
 
69
        mtr_warning("Got EAGAIN from fork(), sleep 1 second and redo");
 
70
        sleep(1);
 
71
        redo FORK;
 
72
      }
 
73
      else
 
74
      {
 
75
        mtr_error("can't fork timer, error: $!");
 
76
      }
 
77
    }
 
78
 
 
79
    if ( $tpid )
 
80
    {
 
81
      # Parent, record the information
 
82
      mtr_verbose("Starting timer for '$name',",
 
83
                  "duration: $duration, pid: $tpid");
 
84
      $timers->{'timers'}->{$name}->{'pid'}= $tpid;
 
85
      $timers->{'timers'}->{$name}->{'duration'}= $duration;
 
86
      $timers->{'pids'}->{$tpid}= $name;
 
87
    }
 
88
    else
 
89
    {
 
90
      # Child, install signal handlers and sleep for "duration"
 
91
 
 
92
      # Don't do the ^C cleanup in the timeout child processes!
 
93
      # There is actually a race here, if we get ^C after fork(), but before
 
94
      # clearing the signal handler.
 
95
      $SIG{INT}= 'DEFAULT';
 
96
 
 
97
      $SIG{TERM}= sub {
 
98
        mtr_verbose("timer $$ woke up, exiting!");
 
99
        exit(0);
 
100
      };
 
101
 
 
102
      $0= "mtr_timer(timers,$name,$duration)";
 
103
      sleep($duration);
 
104
      mtr_verbose("timer $$ expired after $duration seconds");
 
105
      exit(0);
 
106
    }
 
107
  }
 
108
}
 
109
 
 
110
 
 
111
sub mtr_timer_stop ($$) {
 
112
  my ($timers,$name)= @_;
 
113
 
 
114
  if ( exists $timers->{'timers'}->{$name} )
 
115
  {
 
116
    my $tpid= $timers->{'timers'}->{$name}->{'pid'};
 
117
    mtr_verbose("Stopping timer for '$name' with pid $tpid");
 
118
 
 
119
    # FIXME as Cygwin reuses pids fast, maybe check that is
 
120
    # the expected process somehow?!
 
121
    kill(15, $tpid);
 
122
 
 
123
    # As the timers are so simple programs, we trust them to terminate,
 
124
    # and use blocking wait for it. We wait just to avoid a zombie.
 
125
    waitpid($tpid,0);
 
126
 
 
127
    delete $timers->{'timers'}->{$name}; # Remove the timer information
 
128
    delete $timers->{'pids'}->{$tpid};   # and PID reference
 
129
 
 
130
    return 1;
 
131
  }
 
132
 
 
133
  mtr_error("Asked to stop timer '$name' not started");
 
134
}
 
135
 
 
136
 
 
137
sub mtr_timer_stop_all ($) {
 
138
  my $timers= shift;
 
139
 
 
140
  foreach my $name ( keys %{$timers->{'timers'}} )
 
141
  {
 
142
    mtr_timer_stop($timers, $name);
 
143
  }
 
144
  return 1;
 
145
}
 
146
 
 
147
 
 
148
sub mtr_timer_timeout ($$) {
 
149
  my ($timers,$pid)= @_;
 
150
 
 
151
  return "" unless exists $timers->{'pids'}->{$pid};
 
152
 
 
153
  # Got a timeout(the process with $pid is recorded as being a timer)
 
154
  # return the name of the timer
 
155
  return $timers->{'pids'}->{$pid};
 
156
}
 
157
 
 
158
1;