Lines Matching refs:flag
33 my ($flag);36 $flag = 0;45 if ($flag == 4) {47 } elsif ($flag == 0) {53 $flag = 1;70 } elsif ($flag == 1) {73 $flag = 2;75 $flag = 3;77 } elsif ($flag == 2) {82 $flag = 3;86 } elsif ($flag == 3) {88 $flag = 4;91 $flag = 4;98 $flag = 4;109 die "wrong input (flag != 4)" unless $flag == 4;