Lines Matching refs:comment
113 ($op, undef, $comment) = /^([^\#]+)(\#\s+(.*))?/;
114 $comment = $op unless defined $comment;
119 $skip = ($op =~ /^'\?\?\?'/ or $comment =~ /skip\(.*\Q$^O\E.*\)/i)
121 $integer = ($comment =~ /^i_/) ? "use integer" : '' ;
122 (print "#skipping $comment:\nok $ord\n"), next if $skip eq 'skip';
131 print "# \$comment: got `\$a', expected `\$b'\n";
138 print "# skipping $comment: unimplemented:\nok $ord\n";
148 ($op, undef, $comment) = /^([^\#]+)(\#\s+(.*))?/;
149 $comment = $op unless defined $comment;
164 print "# skipping $comment: unimplemented:\nok $ord\n";
166 print "# skipping $comment: syntax not good for selfassign:\nok $ord\n";