SV * const tmpstr = newSV_type(SVt_PVMG);
        t = (const char *)memchr(s, '\n', send - s);
        if (t)
            t++;
        else
            t = send;
        sv_setpvn_fresh(tmpstr, s, t - s);
        /* not breakable until we compile a COP for it */
        SvIV_set(tmpstr, 0);

STATIC void
S_save_lines(pTHX_ AV *array, SV *sv)
{
    const char *s = SvPVX_const(sv);
    const char * const send = SvPVX_const(sv) + SvCUR(sv);
    I32 line = 1;
    while (s && s < send) {
	const char *t;
	SV * const tmpstr = newSV(0);
	sv_upgrade(tmpstr, SVt_PVMG);
	t = strchr(s, '\n');
	if (t)
	    t++;

Revision: a0d0e21ea6ea90a22318550944fe6cb09ae10cda
Author: Larry Wall <larry@wall.org>
Date: 10/17/1994 7:00:00 PM
Message:perl 5.000