Lines Matching refs:_
195 my ($error) = @_;
207 my ($prevline, $error) = @_;
220 my ($error) = @_;
233 my ($fn, $filehandle) = @_;
265 $line = $_;
275 $_ = '"' . $_ if ($in_string && !$nocheck && !$in_comment);
614 my $s = $_;
626 $_ = $s;
694 process_indent($_);
787 local $_ = $_[0];
791 $_ = $pre_tabs;
793 $_ .= "\t" x (length($2) + length($1) / 8);
795 $_ .= ("\t" x (length($label) / 8)).$rest;
798 return ($_);
805 local $_ = $_[0]; # preserve the global $_
837 $_ = delabel($_); # replace labels with tabs
878 my $rest = $_; # keeps the remainder of the line
889 foreach $_ (split /[^\(\)\[\]\{\}\;\:]*/) {
890 next if (length($_) == 0);
897 push @cont_paren, $_;
899 my $cur = $_;
907 } elsif ($old ne $_) {