Searched defs:doproto (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dgv.c100 bool doproto = SvTYPE(gv) > SVt_NULL; local
101 char *proto = (doproto && SvPOK(gv)) ? SvPVX(gv) : NULL;
123 if (multi || doproto) /* doproto means it _was_ mentioned */
125 if (doproto) { /* Replicate part of newSUB here. */

Completed in 18 milliseconds