genhtml: Reduce path resolution overhead

Reduce overhead when reading coverage data files by consolidating
calls to Cwd:cwd().

Signed-off-by: Peter Oberparleiter <[email protected]>

Author: oberpar

bin/genhtml

@@ -69,7 +69,7 @@ use File::Basename;
 use File::Temp qw(tempfile);
 use Getopt::Long;
 use Digest::MD5 qw(md5_base64);
-use Cwd qw/abs_path/;
+use Cwd qw/abs_path cwd/;
 
 
 # Global constants
@@ -297,8 +297,7 @@ our $lcov_func_coverage = 1;
 our $lcov_branch_coverage = 0;
 our $rc_desc_html = 0;	# lcovrc: genhtml_desc_html
 
-our $cwd = `pwd`;	# Current working directory
-chomp($cwd);
+our $cwd = cwd();	# Current working directory
 
 
 #
@@ -1511,7 +1510,7 @@ sub read_info_file($)
 			{
 				# Filename information found
 				# Retrieve data for new entry
-				$filename = File::Spec->rel2abs($1, Cwd::cwd());
+				$filename = File::Spec->rel2abs($1, $cwd);
 
 				if (!File::Spec->file_name_is_absolute($1) &&
 				    !$notified_about_relative_paths)