| line |
true |
false |
branch |
|
230
|
0 |
0 |
if (items < 0 || items > 1) { |
|
|
0 |
0 |
if (items < 0 || items > 1) { |
|
237
|
0 |
0 |
if (items < 1) |
|
244
|
0 |
0 |
if(tcgetattr(PerlIO_fileno(file),&s)) |
|
252
|
0 |
0 |
EXTEND(sp,MAXCC*2); |
|
|
0 |
0 |
EXTEND(sp,MAXCC*2); |
|
358
|
0 |
0 |
if ((items % 2) == 1) |
|
365
|
0 |
0 |
if(tcgetattr(PerlIO_fileno(file),&s)) |
|
375
|
0 |
0 |
for(i=0;i+1
|
|
376
|
0 |
0 |
name = SvPV(ST(i),PL_na); |
|
377
|
0 |
0 |
if( SvIOKp(ST(i+1)) || SvNOKp(ST(i+1)) )/* If Int or Float */ |
|
|
0 |
0 |
if( SvIOKp(ST(i+1)) || SvNOKp(ST(i+1)) )/* If Int or Float */ |
|
378
|
0 |
0 |
value = (char)SvIV(ST(i+1)); /* Store int value */ |
|
380
|
0 |
0 |
value = SvPV(ST(i+1),PL_na)[0]; /* Use first char of PV */ |
|
384
|
0 |
0 |
else if(strcmp(name,cc_names[0])==0) /* DISCARD */ |
|
396
|
0 |
0 |
else if(strcmp(name,cc_names[3])==0) /* EOF */ |
|
400
|
0 |
0 |
else if(strcmp(name,cc_names[4])==0) /* EOL */ |
|
404
|
0 |
0 |
else if(strcmp(name,cc_names[5])==0) /* EOL2 */ |
|
408
|
0 |
0 |
else if(strcmp(name,cc_names[6])==0) /* ERASE */ |
|
412
|
0 |
0 |
else if(strcmp(name,cc_names[7])==0) /* ERASEWORD */ |
|
416
|
0 |
0 |
else if(strcmp(name,cc_names[8])==0) /* INTERRUPT */ |
|
420
|
0 |
0 |
else if(strcmp(name,cc_names[9])==0) /* KILL */ |
|
424
|
0 |
0 |
else if(strcmp(name,cc_names[10])==0) /* MIN */ |
|
428
|
0 |
0 |
else if(strcmp(name,cc_names[11])==0) /* QUIT */ |
|
432
|
0 |
0 |
else if(strcmp(name,cc_names[12])==0) /* QUOTENEXT */ |
|
440
|
0 |
0 |
else if(strcmp(name,cc_names[14])==0) /* REPRINT */ |
|
444
|
0 |
0 |
else if(strcmp(name,cc_names[15])==0) /* START */ |
|
452
|
0 |
0 |
else if(strcmp(name,cc_names[17])==0) /* STOP */ |
|
456
|
0 |
0 |
else if(strcmp(name,cc_names[18])==0) /* SUSPEND */ |
|
460
|
0 |
0 |
else if(strcmp(name,cc_names[19])==0) /* SWITCH */ |
|
468
|
0 |
0 |
else if(strcmp(name,cc_names[21])==0) /* TIME */ |
|
476
|
0 |
0 |
if(tcsetattr(PerlIO_fileno(file),TCSANOW,&s)) |