Lines Matching refs:_
211 my ($error) = @_;
223 my ($prevline, $error) = @_;
236 my ($error) = @_;
249 my ($fn, $filehandle) = @_;
281 $line = $_;
291 $_ = '"' . $_ if ($in_string && !$nocheck && !$in_comment);
630 my $s = $_;
642 $_ = $s;
713 process_indent($_);
807 local $_ = $_[0];
811 $_ = $pre_tabs;
813 $_ .= "\t" x (length($2) + length($1) / 8);
815 $_ .= ("\t" x (length($label) / 8)).$rest;
818 return ($_);
825 local $_ = $_[0]; # preserve the global $_
857 $_ = delabel($_); # replace labels with tabs
898 my $rest = $_; # keeps the remainder of the line
909 foreach $_ (split /[^\(\)\[\]\{\}\;\:]*/) {
910 next if (length($_) == 0);
917 push @cont_paren, $_;
919 my $cur = $_;
927 } elsif ($old ne $_) {