Lines Matching refs:op
2454 my $op = $elements[$n + 1];
2479 my $opv = $op . substr($curr_vars, $off, 1);
2486 # } elsif ($op =~ /^$;+$/) {
2489 } elsif ($op eq ';') {
2493 "space required after that '$op' $at\n" . $hereptr);
2497 } elsif ($op eq '//') {
2502 } elsif ($op eq '->' || $opv eq ':B') {
2505 "spaces prohibited around that '$op' $at\n" . $hereptr);
2509 } elsif ($op eq ',') {
2512 "space required after that '$op' $at\n" . $hereptr);
2522 } elsif ($op eq '!' || $op eq '~' ||
2527 "space required before that '$op' $at\n" . $hereptr);
2529 if ($op eq '*' && $cc =~/\s*$Modifier\b/) {
2534 "space prohibited after that '$op' $at\n" . $hereptr);
2538 } elsif ($op eq '++' or $op eq '--') {
2541 "space required one side of that '$op' $at\n" . $hereptr);
2546 "space prohibited before that '$op' $at\n" . $hereptr);
2550 "space prohibited after that '$op' $at\n" . $hereptr);
2555 } elsif ($op eq '<<' or $op eq '>>' or
2556 $op eq '&' or $op eq '^' or $op eq '|' or
2557 $op eq '+' or $op eq '-' or
2558 $op eq '*' or $op eq '/' or
2559 $op eq '%')
2563 "need consistent spacing around '$op' $at\n" .
2572 "space prohibited before that '$op' $at\n" . $hereptr);
2580 if (($op eq '<' &&
2582 ($op eq '>' &&
2590 ($op eq '?' && $cc =~ /^:/)) {
2596 "spaces required around that '$op' $at\n" . $hereptr);