Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 17 lines (14 sloc) 318 Bytes
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