equal
deleted
inserted
replaced
61 my %unique_message_counts; |
61 my %unique_message_counts; |
62 my %all_message_counts; |
62 my %all_message_counts; |
63 my $next_message_id = 1; |
63 my $next_message_id = 1; |
64 my %packages_by_file; |
64 my %packages_by_file; |
65 my %package_count_by_file; |
65 my %package_count_by_file; |
|
66 my %missing_files; |
66 |
67 |
67 my $linktarget = ""; |
68 my $linktarget = ""; |
68 my %visibility_problems; |
69 my %visibility_problems; |
69 |
70 |
70 my $line; |
71 my $line; |
77 $current_package = $1; |
78 $current_package = $1; |
78 $current_package =~ s/_/\//; |
79 $current_package =~ s/_/\//; |
79 next; |
80 next; |
80 } |
81 } |
81 |
82 |
|
83 # Error: #5: cannot open source input file "lbs/epos_cposprivacynotifier.h": |
|
84 |
|
85 if ($line =~ /cannot open source input file (\"|")(.*)(\"|")/) |
|
86 { |
|
87 my $missing_file = $2; |
|
88 my $count = $missing_files{$missing_file}; |
|
89 $count = 0 if (!defined $count); |
|
90 $missing_files{$missing_file} = $count + 1; |
|
91 |
|
92 # and fall through to the rest of the processing... |
|
93 } |
82 # ... '--soname=glxgridviewplugin{000a0000}[20000a03].dll&x39; ... |
94 # ... '--soname=glxgridviewplugin{000a0000}[20000a03].dll&x39; ... |
83 |
95 |
84 if ($line =~ /--soname=(\S+)(.000a0000.)?(\S+)[&']/) |
96 if ($line =~ /--soname=(\S+)(.000a0000.)?(\S+)[&']/) |
85 { |
97 { |
86 $linktarget = $1.$3; |
98 $linktarget = $1.$3; |
290 print "\n\n====Visibility problems\n"; |
302 print "\n\n====Visibility problems\n"; |
291 foreach my $problem ( sort keys %visibility_problems) |
303 foreach my $problem ( sort keys %visibility_problems) |
292 { |
304 { |
293 print "$problem\n"; |
305 print "$problem\n"; |
294 } |
306 } |
|
307 |
|
308 print "\n\n====Missing files\n"; |
|
309 foreach my $file ( sort {$missing_files{$b} <=> $missing_files{$a}} keys %missing_files) |
|
310 { |
|
311 printf "%-6d\t%s\n",$missing_files{$file}, $file; |
|
312 } |