view release on metacpan or  search on metacpan

t/00_setup.t  view on Meta::CPAN

BEGIN {
	if ($> != 0) {
		print "1..0 # Skipped, this setup can only be done as root.\n";
		exit 0;
	} else {
		plan tests => 4;
	}
}

ok(chown($SETUID_TEST, -1, "t/04_suid_tests.t2"),1,"Failed to chown t/04_suid_tests.t2");
ok(chmod(04755,"t/04_suid_tests.t2"),1,"Failed to chmod t/04_suid_tests.t2");

ok(chown(-1,$SETGID_TEST,"t/05_sgid_tests.t2"),1,"Failed to chown t/05_sgid_tests.t2");
ok(chmod(02755,"t/05_sgid_tests.t2"),1,"Failed to chmod t/05_sgid_tests.t2");