database/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-08-01 03:47:19 +03:00
Code Activity

Gcov support improvements

Browse Source 
- address review feedback (cleaner perl code)
This commit is contained in:
Sergey Petrunya
2009-09-18 05:15:29 +04:00
parent b495b3db23
commit 6e0da2750c
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
mysql-test/lib/mtr_gcov.pl
View File

@ -64,7 +64,8 @@ sub gcov_collect ($$$) {
$dir_reported= 1; $dir_reported= 1;
} }
system("$gcov $f 2>>$start_dir/$gcov_err >>$start_dir/$gcov_msg"); system("$gcov $f 2>>$start_dir/$gcov_err >>$start_dir/$gcov_msg");
system("perl $basedir/mysql-test/lib/process-purecov-annotations.pl $f.gcov"); system("perl", "$basedir/mysql-test/lib/process-purecov-annotations.pl", "$f.gcov");
} }
chdir($start_dir); chdir($start_dir);
} }

5
mysql-test/lib/process-purecov-annotations.pl
View File

@ -47,7 +47,7 @@ foreach my $in_file_name ( @ARGV )
# #
my @arr= split(/:/, $line); my @arr= split(/:/, $line);
if ($skipping || $line =~ /purecov: *(inspected|deadcode)/ || if ($skipping || $line =~ /purecov: *(inspected|deadcode)/ ||
$arr[2] =~ m/^{ */) $arr[2] =~ m/^{ *$/)
{ {
# Change '####' to '-'. # Change '####' to '-'.
$arr[0] =~ s/#####/ -/g; $arr[0] =~ s/#####/ -/g;
@ -57,8 +57,7 @@ foreach my $in_file_name ( @ARGV )
} }
close(IN); close(IN);
close(OUT); close(OUT);
system("cat $out_file_name > $in_file_name"); system("mv", "-f", $out_file_name, $in_file_name);
system("rm $out_file_name");
} }