← Back to branch summary

~ubuntu-branches/ubuntu/natty/mysql-5.1/natty-proposed

« back to all changes in this revision

Viewing changes to mysql-test/lib/My/SafeProcess/safe_process.pl

  • Committer: Package Import Robot
  • Author(s): Marc Deslauriers
  • Date: 2012-02-22 08:30:45 UTC
  • mfrom: (1.4.1)
  • Revision ID: package-import@ubuntu.com-20120222083045-2rd53r4bnyx7qus4
Tags: 5.1.61-0ubuntu0.11.04.1
https://launchpad.net/bugs/937869
* SECURITY UPDATE: Update to 5.1.61 to fix multiple security issues
  (LP: #937869)
  - http://www.oracle.com/technetwork/topics/security/cpujan2012-366304.html
  - CVE-2011-2262
  - CVE-2012-0075
  - CVE-2012-0112
  - CVE-2012-0113
  - CVE-2012-0114
  - CVE-2012-0115
  - CVE-2012-0116
  - CVE-2012-0117
  - CVE-2012-0118
  - CVE-2012-0119
  - CVE-2012-0120
  - CVE-2012-0484
  - CVE-2012-0485
  - CVE-2012-0486
  - CVE-2012-0487
  - CVE-2012-0488
  - CVE-2012-0489
  - CVE-2012-0490
  - CVE-2012-0491
  - CVE-2012-0492
  - CVE-2012-0493
  - CVE-2012-0494
  - CVE-2012-0495
  - CVE-2012-0496

Show diffs side-by-side

added added

removed removed

Lines of Context:
mysql-test/lib/My/SafeProcess/safe_process.pl
1
1
#!/usr/bin/perl
2
2
# -*- cperl -*-
3
3
 
 
4
# Copyright (c) 2007, 2011, Oracle and/or its affiliates. All rights reserved.
 
5
# 
 
6
# This program is free software; you can redistribute it and/or modify
 
7
# it under the terms of the GNU General Public License as published by
 
8
# the Free Software Foundation; version 2 of the License.
 
9
# 
 
10
# This program is distributed in the hope that it will be useful,
 
11
# but WITHOUT ANY WARRANTY; without even the implied warranty of
 
12
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
13
# GNU General Public License for more details.
 
14
# 
 
15
# You should have received a copy of the GNU General Public License
 
16
# along with this program; if not, write to the Free Software
 
17
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
 
18
 
4
19
use strict;
5
20
use warnings;
6
21
 
94
109
  local $SIG{INT}=  \&handle_signal;
95
110
  local $SIG{CHLD}= sub {
96
111
    message("Got signal @_");
97
 
    kill(9, -$child_pid);
 
112
    kill('KILL', -$child_pid);
98
113
    my $ret= waitpid($child_pid, 0);
99
114
    if ($? & 127){
100
115
      exit(65); # Killed by signal
134
149
# Use negative pid in order to kill the whole
135
150
# process group
136
151
#
137
 
my $ret= kill(9, -$child_pid);
 
152
my $ret= kill('KILL', -$child_pid);
138
153
message("Killed child: $child_pid, ret: $ret");
139
154
if ($ret > 0) {
140
155
  message("Killed child: $child_pid");