Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
22 lines (17 sloc) 459 Bytes
GV * T_GVREF
INPUT
T_GVREF
if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVGV)
$var = (GV*)SvRV($arg);
else
Perl_croak(aTHX_ \"$var is not a glob reference\")
T_HVREF
if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVHV)
$var = (HV*)SvRV($arg);
else
Perl_croak(aTHX_ \"$var is not a hash reference\")
OUTPUT
T_GVREF
$arg = newRV((SV*)$var);
T_HVREF
$arg = newRV((SV*)$var);