Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 17 lines (14 sloc) 0.318 kb
HVREF T_HVREF_MG
INPUT
T_HVREF_MG
{
SV* const _arg = $arg;
SvGETMAGIC(_arg);
if (SvROK(_arg) && SvTYPE(SvRV(_arg))==SVt_PVHV)
$var = (HV*)SvRV(_arg);
else
Perl_croak(aTHX_ \"%s: %s is not a hash reference\",
${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
\"$var\");
}
OUTPUT
Jump to Line
Something went wrong with that request. Please try again.