Lines Matching refs:op
623 my $op = $elements[$n + 1];
649 ##print "<$s1:$op:$s2> <$elements[$n]:$elements[$n + 1]:$elements[$n + 2]>\n";
652 if ($op eq ';') {
654 print "need space after that '$op' $at\n";
660 } elsif ($op eq '//') {
663 } elsif ($op eq '->') {
665 print "no spaces around that '$op' $at\n";
671 } elsif ($op eq ',') {
673 print "need space after that '$op' $at\n";
679 } elsif ($op eq '!' or $op eq '~') {
681 print "need space before that '$op' $at\n";
686 print "no space after that '$op' $at\n";
692 } elsif ($op eq '++' or $op eq '--') {
694 print "need space one side of that '$op' $at\n";
699 print "no space before that '$op' $at\n";
716 } elsif ($op eq '&' or $op eq '-') {
718 print "need space before that '$op' $at\n";
728 } elsif ($op eq '*') {
731 print "no space after that '$op' $at\n";
736 print "need space before that '$op' $at\n";
742 } elsif ($op eq '<<' or $op eq '>>' or $op eq '+' or $op eq '/' or
743 $op eq '^' or $op eq '|')
746 print "need consistent spacing around '$op' $at\n";
753 print "need spaces around that '$op' $at\n";
785 #next if ($line=~/\".*\Q$op\E.*\"/ or $line=~/\'\Q$op\E\'/);