Lines Matching refs:op

5131 				my $op = $elements[$n + 1];
5156 				my $opv = $op . substr($curr_vars, $off, 1);
5166 				} elsif ($op eq ';') {
5170 							  "space required after that '$op' $at\n" . $hereptr)) {
5177 				} elsif ($op eq '//') {
5185 				} elsif ($op eq '->') {
5188 							  "spaces prohibited around that '$op' $at\n" . $hereptr)) {
5198 				} elsif ($op eq ',') {
5203 							  "space prohibited before that '$op' $at\n" . $hereptr)) {
5210 							  "space required after that '$op' $at\n" . $hereptr)) {
5234 				} elsif ($op eq '!' || $op eq '~' ||
5239 							  "space required before that '$op' $at\n" . $hereptr)) {
5246 					if ($op eq '*' && $cc =~/\s*$Modifier\b/) {
5251 							  "space prohibited after that '$op' $at\n" . $hereptr)) {
5261 				} elsif ($op eq '++' or $op eq '--') {
5264 							  "space required one side of that '$op' $at\n" . $hereptr)) {
5272 							  "space prohibited before that '$op' $at\n" . $hereptr)) {
5279 							  "space prohibited after that '$op' $at\n" . $hereptr)) {
5289 				} elsif ($op eq '<<' or $op eq '>>' or
5290 					 $op eq '&' or $op eq '^' or $op eq '|' or
5291 					 $op eq '+' or $op eq '-' or
5292 					 $op eq '*' or $op eq '/' or
5293 					 $op eq '%')
5298 								"spaces preferred around that '$op' $at\n" . $hereptr)) {
5305 								"space preferred before that '$op' $at\n" . $hereptr)) {
5312 							  "need consistent spacing around '$op' $at\n" . $hereptr)) {
5326 							  "space prohibited before that '$op' $at\n" . $hereptr)) {
5337 					if (($op eq '<' &&
5339 					    ($op eq '>' &&
5348 					if (($op eq ':') &&
5356 						$msg_level = \&CHK if (($op eq '?:' || $op eq '?' || $op eq ':') && $ctx =~ /VxV/);
5359 								  "spaces required around that '$op' $at\n" . $hereptr)) {
7344 			my $op = "!";
7352 					$op = "";