Lines Matching refs:_
192 my ($error) = @_;
200 my ($prevline, $error) = @_;
209 my ($error) = @_;
218 my ($fn, $filehandle) = @_;
249 $line = $_;
259 $_ = '"' . $_ if ($in_string && !$nocheck && !$in_comment);
562 my $s = $_;
574 $_ = $s;
642 process_indent($_);
735 local $_ = $_[0];
739 $_ = $pre_tabs;
741 $_ .= "\t" x (length($2) + length($1) / 8);
743 $_ .= ("\t" x (length($label) / 8)).$rest;
746 return ($_);
753 local $_ = $_[0]; # preserve the global $_
785 $_ = delabel($_); # replace labels with tabs
826 my $rest = $_; # keeps the remainder of the line
837 foreach $_ (split /[^\(\)\[\]\{\}\;\:]*/) {
838 next if (length($_) == 0);
845 push @cont_paren, $_;
847 my $cur = $_;
855 } elsif ($old ne $_) {