diff options
Diffstat (limited to 'tests/gcov-filter.pl')
-rw-r--r-- | tests/gcov-filter.pl | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/tests/gcov-filter.pl b/tests/gcov-filter.pl index 8cbccc5..c68aa1f 100644 --- a/tests/gcov-filter.pl +++ b/tests/gcov-filter.pl @@ -1,13 +1,13 @@ -#!/usr/bin/perl
-
-$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;
-
-foreach $line (split /\n/, $lines)
-{
- print "$prefix$line\n";
-}
+#!/usr/bin/perl + +$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; + +foreach $line (split /\n/, $lines) +{ + print "$prefix$line\n"; +} |