https://perl5.git.perl.org / perl5.git / blame
| Commit | Line | Data |
|---|---|---|
| 760ac839 | 1 | BOOL T_IV |
| 622913ab IZ |
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 |
| 622913ab | 15 | PCSZ T_PVNULLC |
| 760ac839 LW |
16 | |
| 17 | ############################################################################# | |
| 18 | INPUT | |
| 19 | T_PVNULL | |
| bfd025d9 | 20 | $var = ( SvOK($arg) ? ($type)SvPV_nolen($arg) : NULL ) |
| 622913ab | 21 | T_PVNULLC |
| bfd025d9 | 22 | $var = ( SvOK($arg) ? ($type)SvPV_nolen($arg) : NULL ) |
| 760ac839 LW |
23 | ############################################################################# |
| 24 | OUTPUT | |
| 25 | T_PVNULL | |
| ef50df4b | 26 | sv_setpv((SV*)$arg, $var); |
| 622913ab IZ |
27 | T_PVNULLC |
| 28 | NOTIMPLEMENTED |