пятница, 14 марта 2008 г.

Лучшая документация - это сам код (С)

SV *
Perl_gv_const_sv(pTHX_ GV *gv)
{
if (SvTYPE(gv) == SVt_PVGV)
return cv_const_sv(GvCVu(gv));
return SvROK(gv) ? SvRV(gv) : NULL;
}


P.S.: нарушая принцип выдуманности авторов и случайности совпадений - это реальный код из исходников Perl.

Комментариев нет: