- or download this
/* Scalars */
if (SvIOK(sv)) {
...
V_VT(pVariant) = VT_BSTR;
V_BSTR(pVariant) = AllocOleStringFromSV(aTHX_ sv, cp);
}
- or download this
use strict;
use warnings;
...
print "\$a = $a\n";
Dump($a);
- or download this
SV = PV(0x9c3c6d0) at 0x9c585c0
REFCNT = 1
...
PV = 0x9c66cc8 "10"\0
CUR = 2
LEN = 4