summaryrefslogtreecommitdiff
path: root/tests/gcov-filter.pl
diff options
context:
space:
mode:
Diffstat (limited to 'tests/gcov-filter.pl')
-rw-r--r--tests/gcov-filter.pl10
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";
+}