Upgrades lcov to 1.10, removes lcov-1.9

third_party/lcov/bin/gendesc

 #!/usr/bin/perl -w
 #
 #   Copyright (c) International Business Machines  Corp., 2002
 #
 #   This program is free software;  you can redistribute it and/or modify
 #   it under the terms of the GNU General Public License as published by
 #   the Free Software Foundation; either version 2 of the License, or (at
 #   your option) any later version.
 #
 #   This program is distributed in the hope that it will be useful, but
@@ skipping 23 matching lines @@
 # History:
 #   2002-09-02: created by Peter Oberparleiter <Peter.Oberparleiter@de.ibm.com>
 #
 
 use strict;
 use File::Basename; 
 use Getopt::Long;
 
 
 # Constants
-our $lcov_version       = "LCOV version 1.7";
+our $lcov_version       = 'LCOV version 1.10';
 our $lcov_url           = "http://ltp.sourceforge.net/coverage/lcov.php";
 our $tool_name          = basename($0);
 
 
 # Prototypes
 sub print_usage(*);
 sub gen_desc();
 sub warn_handler($);
 sub die_handler($);
 
 
 # Global variables
 our $help;
 our $version;
 our $output_filename;
 our $input_filename;
 
 
 #
 # Code entry point
 #
 
 $SIG{__WARN__} = \&warn_handler;
 $SIG{__DIE__} = \&die_handler;
 
+# Prettify version string
+$lcov_version =~ s/\$\s*Revision\s*:?\s*(\S+)\s*\$/$1/;
+
 # Parse command line options
 if (!GetOptions("output-filename=s" => \$output_filename,
                 "version" =>\$version,
                 "help|?" => \$help
                 ))
 {
         print(STDERR "Use $tool_name --help to get usage information\n");
         exit(1);
 }
 
@@ skipping 63 matching lines @@
 #
 # Die on error.
 #
 
 sub gen_desc()
 {
         local *INPUT_HANDLE;
         local *OUTPUT_HANDLE;
         my $empty_line = "ignore";
 
-        open(INPUT_HANDLE, $input_filename)
+        open(INPUT_HANDLE, "<", $input_filename)
                 or die("ERROR: cannot open $input_filename!\n");
 
         # Open output file for writing
         if ($output_filename)
         {
-                open(OUTPUT_HANDLE, ">$output_filename")
+                open(OUTPUT_HANDLE, ">", $output_filename)
                         or die("ERROR: cannot create $output_filename!\n");
         }
         else
         {
                 *OUTPUT_HANDLE = *STDOUT;
         }
 
         # Process all lines in input file
         while (<INPUT_HANDLE>)
         {
                 chomp($_);
 
-                if (/^\s*(\w[\w-]*)(\s*)$/)
+                if (/^(\w[\w-]*)(\s*)$/)
                 {
                         # Matched test name
                         # Name starts with alphanum or _, continues with
                         # alphanum, _ or -
                         print(OUTPUT_HANDLE "TN: $1\n");
                         $empty_line = "ignore";
                 }
                 elsif (/^(\s+)(\S.*?)\s*$/)
                 {
                         # Matched test description
@@ skipping 31 matching lines @@
 
         warn("$tool_name: $msg");
 }
 
 sub die_handler($)
 {
         my ($msg) = @_;
 
         die("$tool_name: $msg");
 }