1 Compress::Raw::Bzip2 T_PTROBJ
2 Compress::Raw::Bunzip2 T_PTROBJ
12 #############################################################################
15 $var = (unsigned long)SvUV($arg)
23 $var = ($type)SvPVbyte_nolen($arg);
28 if ($arg == &PL_sv_undef || $arg == NULL)
30 else if (sv_derived_from($arg, \"${ntype}\")) {
31 IV tmp = SvIV(getInnerObject($arg)) ;
32 $var = INT2PTR($type, tmp);
36 croak(\"$var is not of type ${ntype}\")
40 #############################################################################
43 sv_setuv($arg, (IV)$var);
47 setDUALstatus($arg, $var) ;
51 sv_setpv((SV*)$arg, $var);