mariadb/mysql-test/thou_shalt_not_kill.pm
Jan Lindström 2e814d4702 Merge InnoDB 5.7 from mysql-5.7.9.
Contains also

MDEV-10547: Test multi_update_innodb fails with InnoDB 5.7

	The failure happened because 5.7 has changed the signature of
	the bool handler::primary_key_is_clustered() const
	virtual function ("const" was added). InnoDB was using the old
	signature which caused the function not to be used.

MDEV-10550: Parallel replication lock waits/deadlock handling does not work with InnoDB 5.7

	Fixed mutexing problem on lock_trx_handle_wait. Note that
	rpl_parallel and rpl_optimistic_parallel tests still
	fail.

MDEV-10156 : Group commit tests fail on 10.2 InnoDB (branch bb-10.2-jan)
  Reason: incorrect merge

MDEV-10550: Parallel replication can't sync with master in InnoDB 5.7 (branch bb-10.2-jan)
  Reason: incorrect merge
2016-09-02 13:22:28 +03:00

26 lines
512 B
Perl
Executable file

package thou_shalt_not_kill;
require Exporter;
@ISA = 'Exporter';
@EXPORT_OK = 'kill';
use subs 'kill';
use Carp qw(cluck);
sub import {
my $pkg = shift;
$pkg->export('CORE::GLOBAL', 'kill', @_);
}
sub kill {
return CORE::kill(@_) unless $_[0];
cluck "kill(@_)";
print "\e[1;31m" if -t STDOUT;
system "pstree -c $_" foreach @_[1..$#_];
print "\e[0;39m" if -t STDOUT;
print STDERR 'Kill [y/n] ? ';
my $answer=<STDIN>;
return CORE::kill(@_) if $answer =~ /y/i or $answer eq "\n";
1;
}
1;