Exclude *.o files with absolute path.

This commit is contained in:
Pavel Roskin 2003-10-14 23:10:25 +00:00
parent 49ca3dc449
commit 07d3a2cdaa

View File

@ -23,8 +23,8 @@ while (1) {
last unless $next_line;
$line = $next_line;
$next_line = <MAP>;
next unless ($line =~ /^[A-Za-z_][A-Za-z0-9_]* +[^ ]+\.o$/ or
$line =~ /^[A-Za-z_][A-Za-z0-9_]* +[^ ]+\.a\([^ ]+\.o\)$/);
next unless ($line =~ m{^[A-Za-z_][A-Za-z0-9_]* +[^ /][^ ]+\.o$} or
$line =~ m{^[A-Za-z_][A-Za-z0-9_]* +[^ ]+\.a\([^ ]+\.o\)$});
if (!$next_line or ($next_line !~ /^ /)) {
print $line;
}