From 879c7f175820c7c4b3f1213b12a264d642101fd9 Mon Sep 17 00:00:00 2001 From: Sergey Petrunya Date: Fri, 18 Sep 2009 05:15:29 +0400 Subject: Gcov support improvements - address review feedback (cleaner perl code) --- mysql-test/lib/process-purecov-annotations.pl | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'mysql-test/lib/process-purecov-annotations.pl') diff --git a/mysql-test/lib/process-purecov-annotations.pl b/mysql-test/lib/process-purecov-annotations.pl index 843d1d2f130..d533bd02fd6 100755 --- a/mysql-test/lib/process-purecov-annotations.pl +++ b/mysql-test/lib/process-purecov-annotations.pl @@ -47,7 +47,7 @@ foreach my $in_file_name ( @ARGV ) # my @arr= split(/:/, $line); if ($skipping || $line =~ /purecov: *(inspected|deadcode)/ || - $arr[2] =~ m/^{ */) + $arr[2] =~ m/^{ *$/) { # Change '####' to '-'. $arr[0] =~ s/#####/ -/g; @@ -57,8 +57,7 @@ foreach my $in_file_name ( @ARGV ) } close(IN); close(OUT); - system("cat $out_file_name > $in_file_name"); - system("rm $out_file_name"); + system("mv", "-f", $out_file_name, $in_file_name); } -- cgit v1.2.1