diff options
Diffstat (limited to 'mysql-test/thou_shalt_not_kill.pm')
-rwxr-xr-x | mysql-test/thou_shalt_not_kill.pm | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/mysql-test/thou_shalt_not_kill.pm b/mysql-test/thou_shalt_not_kill.pm deleted file mode 100755 index 9a562761d04..00000000000 --- a/mysql-test/thou_shalt_not_kill.pm +++ /dev/null @@ -1,26 +0,0 @@ -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; |