|
Packit |
723767 |
HV * T_HVREF_REFCOUNT_FIXED
|
|
Packit |
723767 |
|
|
Packit |
723767 |
INPUT
|
|
Packit |
723767 |
T_HVREF_REFCOUNT_FIXED
|
|
Packit |
723767 |
STMT_START {
|
|
Packit |
723767 |
SV* const xsub_tmp_sv = $arg;
|
|
Packit |
723767 |
SvGETMAGIC(xsub_tmp_sv);
|
|
Packit |
723767 |
if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVHV){
|
|
Packit |
723767 |
$var = (HV*)SvRV(xsub_tmp_sv);
|
|
Packit |
723767 |
}
|
|
Packit |
723767 |
else{
|
|
Packit |
723767 |
Perl_croak(aTHX_ \"%s: %s is not a HASH reference\",
|
|
Packit |
723767 |
${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
|
|
Packit |
723767 |
\"$var\");
|
|
Packit |
723767 |
}
|
|
Packit |
723767 |
} STMT_END
|
|
Packit |
723767 |
|
|
Packit |
723767 |
OUTPUT
|
|
Packit |
723767 |
T_HVREF_REFCOUNT_FIXED
|
|
Packit |
723767 |
$arg = newRV_noinc((SV*)$var);
|
|
Packit |
723767 |
|