2362N/A * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. 0N/A * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 0N/A * This code is free software; you can redistribute it and/or modify it 0N/A * under the terms of the GNU General Public License version 2 only, as 0N/A * published by the Free Software Foundation. 0N/A * This code is distributed in the hope that it will be useful, but WITHOUT 0N/A * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 0N/A * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 0N/A * version 2 for more details (a copy is included in the LICENSE file that 0N/A * accompanied this code). 0N/A * You should have received a copy of the GNU General Public License version 0N/A * 2 along with this work; if not, write to the Free Software Foundation, 0N/A * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. 2362N/A * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA 2362N/A * or visit www.oracle.com if you need additional information or have any 0N/A * 6469606: (process) Process.destroy() can kill wrong process (Unix) 0N/A * that is not suitable for use as a regression test, because it must 0N/A * create 32768 processes, and depends on perl. 0N/A "my $punk = getppid();" +
0N/A "print TTY \"punk=$punk\\n\";" +
0N/A "for (my $i = 0; $i < 32768; $i++) {" +
0N/A " my $pid = fork();" +
0N/A " if ($pid == 0) {" +
0N/A " print TTY \"MATCH $$ $punk\\n\";" +
0N/A " $SIG{TERM} = sub {" +
0N/A " print TTY \"Got TERM $$ $punk\\n\";" +
0N/A " $| = 1; print 'Go ahead. Make my day.';" +
0N/A " waitpid($pid,0);" +