diff options
Diffstat (limited to 'tests/gcov-filter.pl')
| -rw-r--r-- | tests/gcov-filter.pl | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/tests/gcov-filter.pl b/tests/gcov-filter.pl index 8a581d0..8cbccc5 100644 --- a/tests/gcov-filter.pl +++ b/tests/gcov-filter.pl @@ -1,7 +1,13 @@ #!/usr/bin/perl
-$lines = join('', <>);
+$prefix = join(' ', @ARGV);
+$prefix .= ' ' if ($prefix ne '');
+
+$lines = join('', <STDIN>);
$lines =~ s/File (.+)\nLines (.+)\n(.+\n)*\n/$1 $2\n/g;
$lines =~ s/.+include\/c\+\+.+\n//g;
-print $lines;
+foreach $line (split /\n/, $lines)
+{
+ print "$prefix$line\n";
+}
|