Searched refs:lpv (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dpp_hot.c140 char* lpv; local
153 lpv = SvPV(left, llen); /* mg_get(left) may happen here */
155 sv_setpvn(TARG, lpv, llen);
166 lpv = SvPV_nomg(left, llen);
174 if (llen >= 2 && lpv[llen - 2] == '1' && lpv[llen - 1] == '9'
175 && (llen == 2 || !isDIGIT(lpv[llen - 3])))

Completed in 35 milliseconds