Revision: | 1.1 |
Committed: | Fri Oct 25 23:09:45 2013 UTC (10 years, 8 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 |