1#!./perl -w 2 3BEGIN { 4 chdir 't' if -d 't'; 5 @INC = '../lib'; 6 require './test.pl'; 7} 8 9use Config; 10plan tests => 2; 11 12SKIP: { 13 skip "setpgrp() is not available", 2 unless $Config{d_setpgrp}; 14 ok(!eval { package A;sub foo { die("got here") }; package main; A->foo(setpgrp())}); 15 ok($@ =~ /got here/, "setpgrp() should extend the stack before modifying it"); 16} 17