Lines Matching refs:line
60 ## handle command-line options
104 while (my $line = <STDIN>) {
105 print $tmp_fh $line;
148 if ($. == 1) { # This should be an interpreter line
172 "script $display_filename does not appear to have a \#! interpreter line;\nyou may get strange results\n";
179 # We want to remove end-of-line comments, so need to skip
183 # Remove comments in the "quoted" part of a line that starts
211 # eat it. In either case, swap the unmodified script line
220 # Handle line continuation
244 # continuation line before the start of the rules
280 my $line = $_;
284 $line =~ s/(^|[^\\])(\'\')+/$1/g;
285 $line =~ s/(^|[^\\])(\"\")+/$1/g;
290 if ($line =~ /(?:^|^.*?[^\\])$quote_string(.*)$/) {
292 my $templine = $line;
311 # Quoted block ends on this line
313 $line = $rest || '';
319 # Still inside the quoted block, skip this line
325 # in the previous check, as a single line can end one
330 my $templine = $line;
373 # quotes in the line it's almost certainly the
378 $line =~ s/^(.*)$quote.*$/$1/;
407 $line =~ s/(^|[^\\\'\"])\"\'\"/$1/g;
408 $line =~ s/(^|[^\\\'\"])\'\"\'/$1/g;
412 if ($line =~ m/($re)/) {
422 if ($line =~ m/(.*)($re)/o) {
430 # $cat_line contains the version of the line we'll check
436 my $cat_line = $line;
441 $line =~ s/(^|[^\\\"](?:\\\\)*)\'(?:\\.|[^\\\'])+\'/$1''/g;
451 if ($line =~ m/(.*)($re)/o) {
461 if ($line =~ m/($re)/) {
472 $line =~ s/(^|[^\\\'](?:\\\\)*)\"(?:\\.|[^\\\"])+\"/$1""/g;
476 if ($line =~ m/($re)/) {
487 if ($line =~ m/$LEADIN((?:exit|return)\s+(\d{3,}))/o && $2 > 255) {
520 "error: $display_filename: Unterminated heredoc found, EOF reached. Wanted: <$cat_string>, opened in line $start_lines{'cat_string'}\n"
523 "error: $display_filename: Unterminated quoted string found, EOF reached. Wanted: <$quote_string>, opened in line $start_lines{'quote_string'}\n"
525 warn "error: $display_filename: EOF reached while on line continuation.\n"
539 my ($filename, $line, $explanation) = @_;
546 warn "possible bashism in $filename line $. ($explanation):\n$line\n";