summaryrefslogtreecommitdiff
path: root/mysql-test/thou_shalt_not_kill.pm
diff options
context:
space:
mode:
Diffstat (limited to 'mysql-test/thou_shalt_not_kill.pm')
-rwxr-xr-xmysql-test/thou_shalt_not_kill.pm26
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;