143003dfeSmillert#!./perl -w 243003dfeSmillert 343003dfeSmillertBEGIN { 443003dfeSmillert chdir 't' if -d 't'; 543003dfeSmillert require './test.pl'; 6*5759b3d2Safresh1 set_up_inc('../lib'); 7898184e3Ssthen skip_all_without_config('d_setpgrp'); 843003dfeSmillert} 943003dfeSmillert 10898184e3Ssthenplan tests => 3; 1143003dfeSmillert 1243003dfeSmillertok(!eval { package A;sub foo { die("got here") }; package main; A->foo(setpgrp())}); 1343003dfeSmillertok($@ =~ /got here/, "setpgrp() should extend the stack before modifying it"); 14898184e3Ssthen 15898184e3Ssthenis join("_", setpgrp(0)), 1, 'setpgrp with one argument'; 16