   
   			read(INPUT, $packed_word, 4);
   			$lineno = unpack_int32($packed_word, $endianness);
---- 1498,1504 ----
+--- 1503,1509 ----
   			$function_name =~ s/\W/_/g;
   			(undef, $filename) =
   				read_gcno_string(*INPUT, $endianness);

  							$base_dir, $filename);
  					if (!defined($result{$filename}))
  					{
--- 1550,1556 ----
  				}
  				if ($blocks > 1)
  				{

  		@result = read_gcov_file($gcov_file);
***************
*** 949,954 ****
--- 955,979 ----
  }
  
  
