1 files changed, 0 insertions, 166 deletions
diff --git a/sal/qa/helper/gcov/gcov_resultcompare.pl b/sal/qa/helper/gcov/gcov_resultcompare.pl
deleted file mode 100644
index 704475ce4b28..000000000000
--- a/sal/qa/helper/gcov/gcov_resultcompare.pl
+++ /dev/null
@@ -1,166 +0,0 @@
-#!/usr/bin/env perl -w
-#
-#
-# This file is part of the LibreOffice project.
-#
-# This Source Code Form is subject to the terms of the Mozilla Public
-# License, v. 2.0. If a copy of the MPL was not distributed with this
-# file, You can obtain one at http://mozilla.org/MPL/2.0/.
-#
-# This file incorporates work covered by the following license notice:
-#
-#   Licensed to the Apache Software Foundation (ASF) under one or more
-#   contributor license agreements. See the NOTICE file distributed
-#   with this work for additional information regarding copyright
-#   ownership. The ASF licenses this file to you under the Apache
-#   License, Version 2.0 (the "License"); you may not use this file
-#   except in compliance with the License. You may obtain a copy of
-#   the License at http://www.apache.org/licenses/LICENSE-2.0 .
-#
-#
-# GCOV_RESULTCOMPARE
-#
-# Helper, to compare two different results
-#
-# Q: Why perl?
-# A: regexp ;-)
-#
-
-use strict;
-use File::Basename;
-use Getopt::Long;
-
-our $version_info = 'gcov_resultcompare: 1.2 ';
-
-our $help;                    # Help option flag
-our $version;                 # Version option flag
-# our $infile;
-
-our $orig;
-our $compare;
-
-# Prototypes
-sub print_usage(*);
-sub read_gcov_function_file($);
-
-# Parse command line options
-if (!GetOptions(
-                "o=s" => \$orig,
-                "c=s" => \$compare,
-                 "help"   => \$help,
-                 "version" => \$version
-                 ))
-{
-    print_usage(*STDERR);
-    exit(1);
-}
-
-# Check for help option
-if ($help)
-{
-    print_usage(*STDOUT);
-    exit(0);
-}
-
-# Check for version option
-if ($version)
-{
-    print("$version_info\n");
-    exit(0);
-}
-
-# check if enough parameters
-# if ($#ARGV < 1)
-# {
-#     print("No input filenames specified\n");
-#     print_usage(*STDERR);
-#     exit(1);
-# }
-
-if (! $orig)
-{
-    print_usage(*STDOUT);
-    exit(0);
-}
-if (! $compare)
-{
-    print_usage(*STDOUT);
-    exit(0);
-}
-
-# ------------------------------------------------------------------------------
-
-my %origlist = read_gcov_function_file($orig);
-my %cmplist = read_gcov_function_file($compare);
-
-my $key;
-my $value;
-
-while (($key, $value) = each %origlist)
-{
-    my $cmpvalue = $cmplist{$key};
-
-    if ($cmpvalue != 0.00)
-    {
-        if ($value < 100.00)
-        {
-            if ($cmpvalue > $value && $value < 90.0)
-            {
-                print "$key, $value,   CMP:$cmpvalue\n";
-            }
-        }
-    }
-}
-
-# --------------------------------------------------------------------------------
-# Read the gcov function (gcov -f) file
-# and compare line by line with the export function list
-# so we get a list of functions, which are only exported, and not all stuff.
-
-sub read_gcov_function_file($)
-{
-    local *INPUT_HANDLE;
-    my $file = shift;
-    my %list;
-    my $line = "";
-
-    open(INPUT_HANDLE, $file)
-        or die("ERROR: cannot open $file!\n");
-
-    while ($line = <INPUT_HANDLE>)
-    {
-        chomp($line);
-        # sample line (for reg exp:)
-        # 100.00 rtl_ustr_toDouble
-        if ($line =~ /^(.{6}) (\w+)$/ )
-        {
-            my $percent = $1;
-            my $value = $2;
-
-            $list{$value} = $percent;
-        }
-    }
-    close(INPUT_HANDLE);
-    return %list;
-}
-
-# ----------------------------------------------------------------------------
-sub print_usage(*)
-{
-    local *HANDLE = $_[0];
-    my $tool_name = basename($0);
-
-    print(HANDLE <<END_OF_USAGE);
-
-Usage: $tool_name [OPTIONS] INPUTFILE
-
-    -o                      Original File, which gives the main values
-                            if here a value is smaller than in compare, the found value is a candidate for better check.
-    -c                      Compare file.
-
-    -h, --help              Print this help, then exit
-    -v, --version           Print version number, then exit
-
-END_OF_USAGE
-    ;
-}