usr.bin/perl/pp_pack.c

2127         STRLEN fromlen;
2344             aptr = SvPV_const(fromstr, fromlen);
2358                     len = fromlen+1;
2361                 end = aptr + fromlen;
2362                 fromlen = datumtype == 'Z' ? len-1 : len;
2363                 while ((SSize_t) fromlen > 0 && s < end) {
2365                     fromlen--;
2370                     len = fromlen;
2372                     fromlen = s-aptr;
2373                     len += fromlen;
2377                 fromlen = len - fromlen;
2378                 if (datumtype == 'Z') fromlen--;
2380                     len = fromlen;
2384                 if (!S_utf8_to_bytes(aTHX_ &aptr, end, cur, fromlen,
2387                                "for '%c', aptr=%p end=%p cur=%p, fromlen=%zu",
2388                                (int)datumtype, aptr, end, cur, fromlen);
2389                 cur += fromlen;
2390                 len -= fromlen;
2393                     len = fromlen;
2396                 if (len <= (SSize_t) fromlen) {
2397                     fromlen = len;
2398                     if (datumtype == 'Z' && fromlen > 0) fromlen--;
2403                 GROWING(0, cat, start, cur, fromlen*(UTF8_EXPAND-1)+len);
2404                 len -= fromlen;
2405                 while (fromlen > 0) {
2408                     fromlen--;
2413                     len = fromlen;
2416                 if (len <= (SSize_t) fromlen) {
2417                     fromlen = len;
2418                     if (datumtype == 'Z' && fromlen > 0) fromlen--;
2421                 Copy(aptr, cur, fromlen, char);
2422                 cur += fromlen;
2423                 len -= fromlen;
2439             str = SvPV_const(fromstr, fromlen);
2440             end = str + fromlen;
2448             if (howlen == e_star) len = fromlen;
2451             if (len > (SSize_t)fromlen) len = fromlen;
2508             str = SvPV_const(fromstr, fromlen);
2509             end = str + fromlen;
2517             if (howlen == e_star) len = fromlen;
2520             if (!utf8_source && len > (SSize_t)fromlen) len = fromlen;
3093             aptr = SvPV_const(fromstr, fromlen);
3096                 aend = aptr + fromlen;
3097                 fromlen = sv_len_utf8_nomg(fromstr);
3099             GROWING(utf8, cat, start, cur, (fromlen+2) / 3 * 4 + (fromlen+len-1)/len * 2);
3100             while (fromlen > 0) {
3105                 if ((SSize_t)fromlen > len)
3108                     todo = fromlen;
3125                 fromlen -= todo;
3144     STRLEN fromlen;
3146     const char *pat = SvPV_const(pat_sv, fromlen);
3147     const char *patend = pat + fromlen;