From a49733fd8ea87e231d77a5cbb95a0b95cb473242 Mon Sep 17 00:00:00 2001
From: Donald Buczek <buczek@molgen.mpg.de>
Date: Mon, 13 May 2019 11:46:40 +0200
Subject: [PATCH] mxmirror: Remove dead code (sub check_a)

---
 mxmirror/mxmirror | 21 ---------------------
 1 file changed, 21 deletions(-)

diff --git a/mxmirror/mxmirror b/mxmirror/mxmirror
index a015bd4..f3c9d49 100755
--- a/mxmirror/mxmirror
+++ b/mxmirror/mxmirror
@@ -32,27 +32,6 @@ my $hostip = inet_ntoa(scalar gethostbyname($fullhostname));
 my $jbodmap   = read_jbodmap($JBODMAP);
 my $mirrors   = read_mirrormap($MIRRORMAP);
 
-sub check_a {
-    my $a    = shift;
-    my $href = shift || {};
-
-    return if(exists $href->{$a->{name}});
-
-#    printf "checking $a->{name} .. \n";
-
-    $href->{$a->{name}} = 1;
-
-    foreach(@{$a->{destinations}}, @{$a->{sources}}) {
-        next if(exists $href->{$_->{name}});
-        check_a($_, $href);
-    }
-
-
-
-    return sort keys %$href;
-
-}
-
 my $result = GetOptions(
                "from:s"  => \$opt{from},
                "to:s"    => \$opt{to},