Lines Matching refs:lines
94 my @lines = split /\n/, $text;
96 $lines[0] =~ s/^$indent1\s+/$indent1/;
98 for @lines[1..$#lines];
99 my $newtext = join "\n", @lines;
107 my @lines = split (/\n/, $files_list);
108 my $last_line = pop (@lines);
128 my @lines = split (/\n/, $text);
129 while (@lines) # Don't use `foreach' here, it won't work.
131 my $this_line = shift (@lines);
166 # Blank lines should cancel any user_indent level.
200 my $next_next_line = shift (@lines);
210 unshift (@lines, $next_next_line);
212 unshift (@lines, $next_line);
244 unshift (@lines, $this_line);
