Lines Matching refs:lines
29 my @lines = @{$array};32 while (scalar @lines)34 my $line = pop @lines;57 my @lines = @{$array};59 if (pure_guff (\@lines)) {63 while (scalar @lines)65 my $line = pop @lines;71 my @lines;77 output_lines (\@lines);78 @lines = ();81 unshift @lines, $_;85 output_lines(\@lines);