mirror of
https://github.com/MariaDB/server.git
synced 2025-01-18 13:02:28 +01:00
2e814d4702
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
26 lines
512 B
Perl
Executable file
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;
|