OLD | NEW |
1 #!/usr/bin/perl -w | 1 #!/usr/bin/perl -w |
2 # | 2 # |
3 # Copyright (c) International Business Machines Corp., 2002 | 3 # Copyright (c) International Business Machines Corp., 2002 |
4 # | 4 # |
5 # This program is free software; you can redistribute it and/or modify | 5 # This program is free software; you can redistribute it and/or modify |
6 # it under the terms of the GNU General Public License as published by | 6 # it under the terms of the GNU General Public License as published by |
7 # the Free Software Foundation; either version 2 of the License, or (at | 7 # the Free Software Foundation; either version 2 of the License, or (at |
8 # your option) any later version. | 8 # your option) any later version. |
9 # | 9 # |
10 # This program is distributed in the hope that it will be useful, but | 10 # This program is distributed in the hope that it will be useful, but |
(...skipping 4159 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
4170 my $funcdata = $_[5]; | 4170 my $funcdata = $_[5]; |
4171 my $datafunc = get_hash_reverse($funcdata); | 4171 my $datafunc = get_hash_reverse($funcdata); |
4172 my $add_anchor; | 4172 my $add_anchor; |
4173 | 4173 |
4174 if ($_[2]) | 4174 if ($_[2]) |
4175 { | 4175 { |
4176 %count_data = %{$_[2]}; | 4176 %count_data = %{$_[2]}; |
4177 } | 4177 } |
4178 | 4178 |
4179 open(SOURCE_HANDLE, "<".$source_filename) | 4179 open(SOURCE_HANDLE, "<".$source_filename) |
4180 » » or die("ERROR: cannot open $source_filename for reading!\n"); | 4180 # or die("ERROR: cannot open $source_filename for reading!\n"); |
| 4181 or open(SOURCE_HANDLE, "</dev/null"); |
4181 | 4182 |
4182 write_source_prolog(*HTML_HANDLE); | 4183 write_source_prolog(*HTML_HANDLE); |
4183 | 4184 |
4184 for ($line_number = 1; <SOURCE_HANDLE> ; $line_number++) | 4185 for ($line_number = 1; <SOURCE_HANDLE> ; $line_number++) |
4185 { | 4186 { |
4186 chomp($_); | 4187 chomp($_); |
4187 | 4188 |
4188 # Source code matches coverage data? | 4189 # Source code matches coverage data? |
4189 if (defined($checkdata->{$line_number}) && | 4190 if (defined($checkdata->{$line_number}) && |
4190 ($checkdata->{$line_number} ne md5_base64($_))) | 4191 ($checkdata->{$line_number} ne md5_base64($_))) |
(...skipping 619 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
4810 | 4811 |
4811 warn("$tool_name: $msg"); | 4812 warn("$tool_name: $msg"); |
4812 } | 4813 } |
4813 | 4814 |
4814 sub die_handler($) | 4815 sub die_handler($) |
4815 { | 4816 { |
4816 my ($msg) = @_; | 4817 my ($msg) = @_; |
4817 | 4818 |
4818 die("$tool_name: $msg"); | 4819 die("$tool_name: $msg"); |
4819 } | 4820 } |
OLD | NEW |