14 POSIX::SigSet T_OPAQUEPTROBJ
15 POSIX::Termios T_OPAQUEPTROBJ
16 POSIX::SigAction T_HVREF
24 if (SvROK(sv) && sv_derived_from(sv, \"${ntype}\"))
25 $var = ($type)SvPV_nolen(SvRV(sv));
27 croak(\"%s: %s is not of type %s\",
28 ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
29 \"$var\", \"$ntype\");
33 if ((sig = SvIV($arg)) < 0) {
34 croak(\"%s: Negative signals are not allowed %d\",
35 ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
40 if ((fd = (int)SvIV($arg)) < 0) {
41 SETERRNO(EBADF, RMS_IFI);
47 sv_setref_pvn($arg, \"${ntype}\", (const char*)$var, sizeof(*$var));