Lines Matching refs:lines
100 my @lines = <$fh>;
101 my $orig_count = @lines;
102 @lines = grep { $_ !~ /$id_text/ } @lines;
103 next if @lines == $orig_count; # No need to write if unchanged.
106 print $fh @lines;
122 my @lines = <$fh>;
123 my $count = @lines;
129 next if grep { /$line/ } @lines;
131 push @lines, $line;
133 if ($count != @lines) {
134 @lines = sort symbol_order @lines;
137 print $fh @lines;
172 my @lines = <$fh>;
173 my $count = @lines;
174 push @lines, format_version_line($version) . "\n" unless @lines;
177 unless (grep { /$line/ } @lines) {;
179 push @lines, $line unless grep { /$line/ } @lines;
182 if (@lines != $count) {
183 @lines = sort symbol_order @lines;
186 print $fh @lines;
421 my @lines = <$fh>;
422 my $count = @lines;
425 next if grep { /$line/ } @lines;
427 push @lines, $line;
429 if (@lines != $count) {
430 @lines = sort symbol_order @lines;
433 print $fh @lines;