https://perl5.git.perl.org / perl5.git / blame
| Commit | Line | Data |
|---|---|---|
| 760ac839 | 1 | BOOL T_IV |
| 18729d3e JH |
2 | ULONG T_UV |
| 3 | HINI T_UV | |
| 4 | HAB T_UV | |
| 5 | HWND T_UV | |
| 6 | ATOM T_UV | |
| 7 | HATOMTBL T_UV | |
| 8 | HSWITCH T_UV | |
| 9 | ULONG T_UV | |
| 10 | USHORT T_UV | |
| 11 | LONG T_IV | |
| 12 | SHORT T_IV | |
| 13 | ||
| 760ac839 | 14 | PSZ T_PVNULL |
| 18729d3e | 15 | PCSZ T_PVNULLC |
| 760ac839 LW |
16 | |
| 17 | ############################################################################# | |
| 18 | INPUT | |
| 19 | T_PVNULL | |
| 6b88bc9c | 20 | $var = ( SvOK($arg) ? ($type)SvPV($arg,PL_na) : NULL ) |
| 18729d3e JH |
21 | T_PVNULLC |
| 22 | $var = ( SvOK($arg) ? ($type)SvPV($arg,PL_na) : NULL ) | |
| 760ac839 LW |
23 | ############################################################################# |
| 24 | OUTPUT | |
| 25 | T_PVNULL | |
| ef50df4b | 26 | sv_setpv((SV*)$arg, $var); |
| 18729d3e JH |
27 | T_PVNULLC |
| 28 | NOTIMPLEMENTED |