| Revision: | 1.1 |
| Committed: | Fri Oct 25 23:09:45 2013 UTC (12 years, 10 months ago) by root |
| Branch: | MAIN |
| CVS Tags: | rel-1_11, rel-1_12, rel-0_07, rel-1_71, rel-1_8, rel-0_04, rel-1_1, rel-1_0, rel-1_3, rel-1_5, rel-1_4, rel-1_7, rel-1_6, rel-0_09, rel-0_08, rel-0_05, rel-1_25, rel-1_26, rel-0_06, rel-0_03, rel-0_02, rel-1_41, rel-1_82, rel-1_83, rel-1_81, rel-1_86, rel-1_87, rel-1_84, rel-1_85, HEAD |
| Log Message: | *** empty log message *** |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | root | 1.1 | CBOR * T_CBOR |
| 2 | |||
| 3 | INPUT | ||
| 4 | |||
| 5 | T_CBOR | ||
| 6 | if (!( | ||
| 7 | SvROK ($arg) | ||
| 8 | && SvOBJECT (SvRV ($arg)) | ||
| 9 | && (SvSTASH (SvRV ($arg)) == CBOR_STASH || sv_derived_from ($arg, \"CBOR::XS\")) | ||
| 10 | )) | ||
| 11 | croak (\"object is not of type CBOR::XS\"); | ||
| 12 | /**/ | ||
| 13 | $var = (CBOR *)SvPVX (SvRV ($arg)); | ||
| 14 | |||
| 15 |