Lines Matching refs:op
5146 my $op = $elements[$n + 1];
5171 my $opv = $op . substr($curr_vars, $off, 1);
5181 } elsif ($op eq ';') {
5185 "space required after that '$op' $at\n" . $hereptr)) {
5192 } elsif ($op eq '//') {
5200 } elsif ($op eq '->') {
5203 "spaces prohibited around that '$op' $at\n" . $hereptr)) {
5213 } elsif ($op eq ',') {
5218 "space prohibited before that '$op' $at\n" . $hereptr)) {
5225 "space required after that '$op' $at\n" . $hereptr)) {
5249 } elsif ($op eq '!' || $op eq '~' ||
5254 "space required before that '$op' $at\n" . $hereptr)) {
5261 if ($op eq '*' && $cc =~/\s*$Modifier\b/) {
5266 "space prohibited after that '$op' $at\n" . $hereptr)) {
5276 } elsif ($op eq '++' or $op eq '--') {
5279 "space required one side of that '$op' $at\n" . $hereptr)) {
5287 "space prohibited before that '$op' $at\n" . $hereptr)) {
5294 "space prohibited after that '$op' $at\n" . $hereptr)) {
5304 } elsif ($op eq '<<' or $op eq '>>' or
5305 $op eq '&' or $op eq '^' or $op eq '|' or
5306 $op eq '+' or $op eq '-' or
5307 $op eq '*' or $op eq '/' or
5308 $op eq '%')
5313 "spaces preferred around that '$op' $at\n" . $hereptr)) {
5320 "space preferred before that '$op' $at\n" . $hereptr)) {
5327 "need consistent spacing around '$op' $at\n" . $hereptr)) {
5341 "space prohibited before that '$op' $at\n" . $hereptr)) {
5352 if (($op eq '<' &&
5354 ($op eq '>' &&
5363 if (($op eq ':') &&
5371 $msg_level = \&CHK if (($op eq '?:' || $op eq '?' || $op eq ':') && $ctx =~ /VxV/);
5374 "spaces required around that '$op' $at\n" . $hereptr)) {
7389 my $op = "!";
7397 $op = "";