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