This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate:
[perl5.git] / os2 / OS2 / PrfDB / typemap
1 BOOL                    T_IV
2 ULONG                   T_IV
3 HINI                    T_IV
4 HAB                     T_IV
5 PSZ                     T_PVNULL
6
7 #############################################################################
8 INPUT
9 T_PVNULL
10         $var = ( SvOK($arg) ? ($type)SvPV($arg,PL_na) : NULL )
11 #############################################################################
12 OUTPUT
13 T_PVNULL
14         sv_setpv((SV*)$arg, $var);