| line |
true |
false |
branch |
|
137
|
0 |
0 |
if (!PL_rsfp_filters) |
|
|
0 |
0 |
if (!PL_rsfp_filters) |
|
139
|
0 |
0 |
if (idx > AvFILLp(PL_rsfp_filters)) { /* Any more filters? */ |
|
|
0 |
0 |
if (idx > AvFILLp(PL_rsfp_filters)) { /* Any more filters? */ |
|
144
|
0 |
0 |
if (maxlen) { |
|
150
|
0 |
0 |
SvGROW(buf_sv, (STRLEN)(old_len + maxlen)) ; |
|
|
0 |
0 |
SvGROW(buf_sv, (STRLEN)(old_len + maxlen)) ; |
|
151
|
0 |
0 |
if ((len = PerlIO_read(PL_rsfp, SvPVX(buf_sv) + old_len, maxlen)) <= 0){ |
|
|
0 |
0 |
if ((len = PerlIO_read(PL_rsfp, SvPVX(buf_sv) + old_len, maxlen)) <= 0){ |
|
152
|
0 |
0 |
if (PerlIO_error(PL_rsfp)) |
|
|
0 |
0 |
if (PerlIO_error(PL_rsfp)) |
|
160
|
0 |
0 |
if (sv_gets(buf_sv, PL_rsfp, SvCUR(buf_sv)) == NULL) { |
|
|
0 |
0 |
if (sv_gets(buf_sv, PL_rsfp, SvCUR(buf_sv)) == NULL) { |
|
161
|
0 |
0 |
if (PerlIO_error(PL_rsfp)) |
|
|
0 |
0 |
if (PerlIO_error(PL_rsfp)) |
|
170
|
0 |
0 |
if ( (datasv = FILTER_DATA(idx)) == &PL_sv_undef) { |
|
|
0 |
0 |
if ( (datasv = FILTER_DATA(idx)) == &PL_sv_undef) { |
|
195
|
0 |
0 |
if (PL_rsfp_filters) { |
|
|
0 |
0 |
if (PL_rsfp_filters) { |
|
196
|
0 |
0 |
if (!append) |
|
198
|
0 |
0 |
if (FILTER_READ(0, sv, 0) > 0) |
|
216
|
0 |
0 |
if (PL_lex_formbrack && PL_lex_brackets <= PL_lex_formbrack) { |
|
|
0 |
0 |
if (PL_lex_formbrack && PL_lex_brackets <= PL_lex_formbrack) { |
|
217
|
0 |
0 |
while (s < PL_bufend && SPACE_OR_TAB(*s)) |
|
|
0 |
0 |
while (s < PL_bufend && SPACE_OR_TAB(*s)) |
|
|
0 |
0 |
while (s < PL_bufend && SPACE_OR_TAB(*s)) |
|
|
0 |
0 |
while (s < PL_bufend && SPACE_OR_TAB(*s)) |
|
225
|
0 |
0 |
while (s < PL_bufend && isSPACE(*s)) { |
|
|
0 |
0 |
while (s < PL_bufend && isSPACE(*s)) { |
|
|
0 |
0 |
while (s < PL_bufend && isSPACE(*s)) { |
|
226
|
0 |
0 |
if (*s++ == '\n' && PL_in_eval && !PL_rsfp) |
|
|
0 |
0 |
if (*s++ == '\n' && PL_in_eval && !PL_rsfp) |
|
|
0 |
0 |
if (*s++ == '\n' && PL_in_eval && !PL_rsfp) |
|
|
0 |
0 |
if (*s++ == '\n' && PL_in_eval && !PL_rsfp) |
|
231
|
0 |
0 |
if (s < PL_bufend && *s == '#') { |
|
|
0 |
0 |
if (s < PL_bufend && *s == '#') { |
|
|
0 |
0 |
if (s < PL_bufend && *s == '#') { |
|
232
|
0 |
0 |
while (s < PL_bufend && *s != '\n') |
|
|
0 |
0 |
while (s < PL_bufend && *s != '\n') |
|
|
0 |
0 |
while (s < PL_bufend && *s != '\n') |
|
234
|
0 |
0 |
if (s < PL_bufend) { |
|
|
0 |
0 |
if (s < PL_bufend) { |
|
236
|
0 |
0 |
if (PL_in_eval && !PL_rsfp) { |
|
|
0 |
0 |
if (PL_in_eval && !PL_rsfp) { |
|
|
0 |
0 |
if (PL_in_eval && !PL_rsfp) { |
|
247
|
0 |
0 |
if (s < PL_bufend || !PL_rsfp || PL_lex_inwhat || |
|
|
0 |
0 |
if (s < PL_bufend || !PL_rsfp || PL_lex_inwhat || |
|
|
0 |
0 |
if (s < PL_bufend || !PL_rsfp || PL_lex_inwhat || |
|
|
0 |
0 |
if (s < PL_bufend || !PL_rsfp || PL_lex_inwhat || |
|
|
0 |
0 |
if (s < PL_bufend || !PL_rsfp || PL_lex_inwhat || |
|
|
0 |
0 |
if (s < PL_bufend || !PL_rsfp || PL_lex_inwhat || |
|
248
|
0 |
0 |
PL_lex_state == LEX_FORMLINE) |
|
252
|
0 |
0 |
if ((s = filter_gets(PL_linestr, PL_rsfp, |
|
|
0 |
0 |
if ((s = filter_gets(PL_linestr, PL_rsfp, |
|
|
0 |
0 |
if ((s = filter_gets(PL_linestr, PL_rsfp, |
|
|
0 |
0 |
if ((s = filter_gets(PL_linestr, PL_rsfp, |
|
256
|
0 |
0 |
if (PL_minus_p) { |
|
257
|
0 |
0 |
sv_setpv(PL_linestr, |
|
261
|
0 |
0 |
else if (PL_minus_n) { |
|
262
|
0 |
0 |
sv_setpvn(PL_linestr, ";}", 2); |
|
266
|
0 |
0 |
sv_setpvn(PL_linestr,";", 1); |
|
269
|
0 |
0 |
PL_oldoldbufptr = PL_oldbufptr = PL_bufptr = s = PL_linestart |
|
270
|
0 |
0 |
= SvPVX(PL_linestr); |
|
271
|
0 |
0 |
PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr); |
|
|
0 |
0 |
PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr); |
|
|
0 |
0 |
PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr); |
|
287
|
0 |
0 |
if ((PerlIO*)PL_rsfp == PerlIO_stdin()) |
|
|
0 |
0 |
if ((PerlIO*)PL_rsfp == PerlIO_stdin()) |
|
288
|
0 |
0 |
PerlIO_clearerr(PL_rsfp); |
|
290
|
0 |
0 |
(void)PerlIO_close(PL_rsfp); |
|
291
|
0 |
0 |
PL_rsfp = Nullfp; |
|
297
|
0 |
0 |
oldprevlen = PL_oldbufptr - PL_bufend; |
|
298
|
0 |
0 |
oldoldprevlen = PL_oldoldbufptr - PL_bufend; |
|
299
|
0 |
0 |
if (PL_last_uni) |
|
300
|
0 |
0 |
oldunilen = PL_last_uni - PL_bufend; |
|
301
|
0 |
0 |
if (PL_last_lop) |
|
302
|
0 |
0 |
oldloplen = PL_last_lop - PL_bufend; |
|
303
|
0 |
0 |
PL_linestart = PL_bufptr = s + prevlen; |
|
304
|
0 |
0 |
PL_bufend = s + SvCUR(PL_linestr); |
|
|
0 |
0 |
PL_bufend = s + SvCUR(PL_linestr); |
|
305
|
0 |
0 |
s = PL_bufptr; |
|
308
|
0 |
0 |
if (PL_last_uni) |
|
310
|
0 |
0 |
if (PL_last_lop) |
|
317
|
0 |
0 |
if (PERLDB_LINE && PL_curstash != PL_debstash) { |
|
|
0 |
0 |
if (PERLDB_LINE && PL_curstash != PL_debstash) { |
|
318
|
0 |
0 |
AV *fileav = CopFILEAV(PL_curcop); |
|
319
|
0 |
0 |
if (fileav) { |
|
322
|
0 |
0 |
sv_setpvn(sv,PL_bufptr,PL_bufend-PL_bufptr); |
|
|
0 |
0 |
sv_setpvn(sv,PL_bufptr,PL_bufend-PL_bufptr); |
|
|
0 |
0 |
sv_setpvn(sv,PL_bufptr,PL_bufend-PL_bufptr); |
|
337
|
0 |
0 |
if (d >= e) |
|
339
|
0 |
0 |
if (isALNUM(*s)) /* UTF handled below */ |
|
341
|
0 |
0 |
else if (*s == '\'' && allow_package && isIDFIRST_lazy_if(s+1,UTF)) { |
|
|
0 |
0 |
else if (*s == '\'' && allow_package && isIDFIRST_lazy_if(s+1,UTF)) { |
|
|
0 |
0 |
else if (*s == '\'' && allow_package && isIDFIRST_lazy_if(s+1,UTF)) { |
|
|
0 |
0 |
else if (*s == '\'' && allow_package && isIDFIRST_lazy_if(s+1,UTF)) { |
|
|
0 |
0 |
else if (*s == '\'' && allow_package && isIDFIRST_lazy_if(s+1,UTF)) { |
|
|
0 |
0 |
else if (*s == '\'' && allow_package && isIDFIRST_lazy_if(s+1,UTF)) { |
|
|
0 |
0 |
else if (*s == '\'' && allow_package && isIDFIRST_lazy_if(s+1,UTF)) { |
|
|
0 |
0 |
else if (*s == '\'' && allow_package && isIDFIRST_lazy_if(s+1,UTF)) { |
|
|
0 |
0 |
else if (*s == '\'' && allow_package && isIDFIRST_lazy_if(s+1,UTF)) { |
|
|
0 |
0 |
else if (*s == '\'' && allow_package && isIDFIRST_lazy_if(s+1,UTF)) { |
|
346
|
0 |
0 |
else if (*s == ':' && s[1] == ':' && allow_package && s[2] != '$') { |
|
|
0 |
0 |
else if (*s == ':' && s[1] == ':' && allow_package && s[2] != '$') { |
|
|
0 |
0 |
else if (*s == ':' && s[1] == ':' && allow_package && s[2] != '$') { |
|
|
0 |
0 |
else if (*s == ':' && s[1] == ':' && allow_package && s[2] != '$') { |
|
350
|
0 |
0 |
else if (UTF && UTF8_IS_START(*s) && isALNUM_utf8((U8*)s)) { |
|
|
0 |
0 |
else if (UTF && UTF8_IS_START(*s) && isALNUM_utf8((U8*)s)) { |
|
|
0 |
0 |
else if (UTF && UTF8_IS_START(*s) && isALNUM_utf8((U8*)s)) { |
|
|
0 |
0 |
else if (UTF && UTF8_IS_START(*s) && isALNUM_utf8((U8*)s)) { |
|
|
0 |
0 |
else if (UTF && UTF8_IS_START(*s) && isALNUM_utf8((U8*)s)) { |
|
|
0 |
0 |
else if (UTF && UTF8_IS_START(*s) && isALNUM_utf8((U8*)s)) { |
|
|
0 |
0 |
else if (UTF && UTF8_IS_START(*s) && isALNUM_utf8((U8*)s)) { |
|
|
0 |
0 |
else if (UTF && UTF8_IS_START(*s) && isALNUM_utf8((U8*)s)) { |
|
352
|
0 |
0 |
while (UTF8_IS_CONTINUED(*t) && is_utf8_mark((U8*)t)) |
|
|
0 |
0 |
while (UTF8_IS_CONTINUED(*t) && is_utf8_mark((U8*)t)) |
|
354
|
0 |
0 |
if (d + (t - s) > e) |
|
387
|
0 |
0 |
if (*s++ != '#') |
|
389
|
0 |
0 |
while (SPACE_OR_TAB(*s)) s++; |
|
|
0 |
0 |
while (SPACE_OR_TAB(*s)) s++; |
|
390
|
0 |
0 |
if (strnEQ(s, "line", 4)) |
|
394
|
0 |
0 |
if (SPACE_OR_TAB(*s)) |
|
|
0 |
0 |
if (SPACE_OR_TAB(*s)) |
|
398
|
0 |
0 |
while (SPACE_OR_TAB(*s)) s++; |
|
|
0 |
0 |
while (SPACE_OR_TAB(*s)) s++; |
|
399
|
0 |
0 |
if (!isDIGIT(*s)) |
|
402
|
0 |
0 |
while (isDIGIT(*s)) |
|
404
|
0 |
0 |
while (SPACE_OR_TAB(*s)) |
|
|
0 |
0 |
while (SPACE_OR_TAB(*s)) |
|
406
|
0 |
0 |
if (*s == '"' && (t = strchr(s+1, '"'))) { |
|
|
0 |
0 |
if (*s == '"' && (t = strchr(s+1, '"'))) { |
|
411
|
0 |
0 |
for (t = s; !isSPACE(*t); t++) ; |
|
414
|
0 |
0 |
while (SPACE_OR_TAB(*e) || *e == '\r' || *e == '\f') |
|
|
0 |
0 |
while (SPACE_OR_TAB(*e) || *e == '\r' || *e == '\f') |
|
|
0 |
0 |
while (SPACE_OR_TAB(*e) || *e == '\r' || *e == '\f') |
|
|
0 |
0 |
while (SPACE_OR_TAB(*e) || *e == '\r' || *e == '\f') |
|
416
|
0 |
0 |
if (*e != '\n' && *e != '\0') |
|
|
0 |
0 |
if (*e != '\n' && *e != '\0') |
|
421
|
0 |
0 |
if (t - s > 0) { |
|
535
|
0 |
0 |
if (isSPACE(*s)) |
|
539
|
0 |
0 |
CLINE; |
|
|
0 |
0 |
CLINE; |
|
|
0 |
0 |
CLINE; |
|
|
0 |
0 |
CLINE; |
|
543
|
0 |
0 |
if (!UTF) { |
|
|
0 |
0 |
if (!UTF) { |
|
|
0 |
0 |
if (!UTF) { |
|
|
0 |
0 |
if (!UTF) { |
|
|
0 |
0 |
if (!UTF) { |
|
|
0 |
0 |
if (!UTF) { |
|
550
|
0 |
0 |
if (!UTF8_IS_INVARIANT(term)) |
|
559
|
0 |
0 |
if (term && (tmps = strchr("([{< )]}> )]}>",term))) |
|
|
0 |
0 |
if (term && (tmps = strchr("([{< )]}> )]}>",term))) |
|
572
|
0 |
0 |
if (keep_delims) |
|
648
|
0 |
0 |
SvGROW(sv, SvCUR(sv) + (PL_bufend - s) + 1); |
|
|
0 |
0 |
SvGROW(sv, SvCUR(sv) + (PL_bufend - s) + 1); |
|
|
0 |
0 |
SvGROW(sv, SvCUR(sv) + (PL_bufend - s) + 1); |
|
|
0 |
0 |
SvGROW(sv, SvCUR(sv) + (PL_bufend - s) + 1); |
|
653
|
0 |
0 |
if (PL_multi_open == PL_multi_close) { |
|
654
|
0 |
0 |
for (; s < PL_bufend; s++,to++) { |
|
|
0 |
0 |
for (; s < PL_bufend; s++,to++) { |
|
656
|
0 |
0 |
if (*s == '\n' && !PL_rsfp) |
|
|
0 |
0 |
if (*s == '\n' && !PL_rsfp) |
|
|
0 |
0 |
if (*s == '\n' && !PL_rsfp) |
|
659
|
0 |
0 |
if (*s == '\\' && s+1 < PL_bufend && term != '\\') { |
|
|
0 |
0 |
if (*s == '\\' && s+1 < PL_bufend && term != '\\') { |
|
|
0 |
0 |
if (*s == '\\' && s+1 < PL_bufend && term != '\\') { |
|
|
0 |
0 |
if (*s == '\\' && s+1 < PL_bufend && term != '\\') { |
|
660
|
0 |
0 |
if (!keep_quoted && s[1] == term) |
|
|
0 |
0 |
if (!keep_quoted && s[1] == term) |
|
668
|
0 |
0 |
else if (*s == term) { |
|
669
|
0 |
0 |
if (termlen == 1) |
|
671
|
0 |
0 |
if (s+termlen <= PL_bufend && memEQ(s, (char*)termstr, termlen)) |
|
|
0 |
0 |
if (s+termlen <= PL_bufend && memEQ(s, (char*)termstr, termlen)) |
|
|
0 |
0 |
if (s+termlen <= PL_bufend && memEQ(s, (char*)termstr, termlen)) |
|
674
|
0 |
0 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
0 |
0 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
0 |
0 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
0 |
0 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
0 |
0 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
0 |
0 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
0 |
0 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
0 |
0 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
686
|
0 |
0 |
for (; s < PL_bufend; s++,to++) { |
|
|
0 |
0 |
for (; s < PL_bufend; s++,to++) { |
|
688
|
0 |
0 |
if (*s == '\n' && !PL_rsfp) |
|
|
0 |
0 |
if (*s == '\n' && !PL_rsfp) |
|
|
0 |
0 |
if (*s == '\n' && !PL_rsfp) |
|
691
|
0 |
0 |
if (*s == '\\' && s+1 < PL_bufend) { |
|
|
0 |
0 |
if (*s == '\\' && s+1 < PL_bufend) { |
|
|
0 |
0 |
if (*s == '\\' && s+1 < PL_bufend) { |
|
692
|
0 |
0 |
if (!keep_quoted && |
|
|
0 |
0 |
if (!keep_quoted && |
|
693
|
0 |
0 |
((s[1] == PL_multi_open) || (s[1] == PL_multi_close))) |
|
699
|
0 |
0 |
else if (*s == PL_multi_close && --brackets <= 0) |
|
|
0 |
0 |
else if (*s == PL_multi_close && --brackets <= 0) |
|
701
|
0 |
0 |
else if (*s == PL_multi_open) |
|
703
|
0 |
0 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
0 |
0 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
0 |
0 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
0 |
0 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
0 |
0 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
0 |
0 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
0 |
0 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
0 |
0 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
716
|
0 |
0 |
if (s < PL_bufend) |
|
|
0 |
0 |
if (s < PL_bufend) |
|
720
|
0 |
0 |
if (to - SvPVX_const(sv) >= 2) { |
|
721
|
0 |
0 |
if ((to[-2] == '\r' && to[-1] == '\n') || |
|
|
0 |
0 |
if ((to[-2] == '\r' && to[-1] == '\n') || |
|
|
0 |
0 |
if ((to[-2] == '\r' && to[-1] == '\n') || |
|
722
|
0 |
0 |
(to[-2] == '\n' && to[-1] == '\r')) |
|
728
|
0 |
0 |
else if (to[-1] == '\r') |
|
731
|
0 |
0 |
else if (to - SvPVX_const(sv) == 1 && to[-1] == '\r') |
|
|
0 |
0 |
else if (to - SvPVX_const(sv) == 1 && to[-1] == '\r') |
|
739
|
0 |
0 |
if (!PL_rsfp || |
|
740
|
0 |
0 |
!(PL_oldoldbufptr = PL_oldbufptr = s = PL_linestart = filter_gets(PL_linestr, PL_rsfp, 0))) { |
|
|
0 |
0 |
!(PL_oldoldbufptr = PL_oldbufptr = s = PL_linestart = filter_gets(PL_linestr, PL_rsfp, 0))) { |
|
749
|
0 |
0 |
if (PERLDB_LINE && PL_curstash != PL_debstash) { |
|
|
0 |
0 |
if (PERLDB_LINE && PL_curstash != PL_debstash) { |
|
750
|
0 |
0 |
AV *fileav = CopFILEAV(PL_curcop); |
|
751
|
0 |
0 |
if (fileav) { |
|
754
|
0 |
0 |
sv_setsv(sv,PL_linestr); |
|
762
|
0 |
0 |
PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr); |
|
|
0 |
0 |
PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr); |
|
|
0 |
0 |
PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr); |
|
769
|
0 |
0 |
if (keep_delims) |
|
773
|
0 |
0 |
if (has_utf8 || PL_encoding) |
|
779
|
0 |
0 |
if (SvCUR(sv) + 5 < SvLEN(sv)) { |
|
793
|
0 |
0 |
if (PL_lex_stuff) |
|
|
0 |
0 |
if (PL_lex_stuff) |
|
796
|
0 |
0 |
PL_lex_stuff = sv; |