From d342dd9f634acf19acf235bc57c241eff5f59963 Mon Sep 17 00:00:00 2001
From: "root@bacon /dev/pts/0 141.14.28.170" <root@molgen.mpg.de>
Date: Fri, 1 Jul 2016 09:39:10 +0200
Subject: [PATCH 1/3] fix args

ldd failure checked on args on startup
---
 ldd_bee/ldd_bee.pl | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/ldd_bee/ldd_bee.pl b/ldd_bee/ldd_bee.pl
index 57d65ca..02c62ab 100755
--- a/ldd_bee/ldd_bee.pl
+++ b/ldd_bee/ldd_bee.pl
@@ -3,10 +3,17 @@
 use Data::Dumper;$Data::Dumper::Sortkeys=1;
 
 my %ldd;
-for (@ARGV) {
-  @_=`ldd $ARGV[0]`;
-  chomp @_;
-  map {/=>\s(\S+)/ && $ldd{$1}++} @_;
+my @bins;
+for my $bin (@ARGV) {
+  @_=`ldd $bin 2>&1`;
+  if ( $? == 0 ) {
+    chomp @_;
+    map {/=>\s(\S+)/ && $ldd{$1}++} @_;
+    push @bins,$bin;
+  }
+  else {
+    die "ldd failed on $bin";
+  }
 }
 
 my @libs = sort keys %ldd;

From 14267e05f3c102a23af67decd67afb73ba80ed89 Mon Sep 17 00:00:00 2001
From: "root@bacon /dev/pts/0 141.14.28.170" <root@molgen.mpg.de>
Date: Fri, 1 Jul 2016 09:49:12 +0200
Subject: [PATCH 2/3] add args to query

why not
---
 ldd_bee/ldd_bee.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/ldd_bee/ldd_bee.pl b/ldd_bee/ldd_bee.pl
index 02c62ab..1816325 100755
--- a/ldd_bee/ldd_bee.pl
+++ b/ldd_bee/ldd_bee.pl
@@ -36,6 +36,7 @@
   }
 }
 
+unshift @libs,@bins;
 my %bee;
 for my $l (@libs) {
   print "# $l\n";

From bc870dcd291e138b722b0111d393f58c83eef602 Mon Sep 17 00:00:00 2001
From: "root@bacon /dev/pts/0 141.14.28.170" <root@molgen.mpg.de>
Date: Fri, 1 Jul 2016 09:49:57 +0200
Subject: [PATCH 3/3] build up carnivore array

more useful
---
 ldd_bee/ldd_bee.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/ldd_bee/ldd_bee.pl b/ldd_bee/ldd_bee.pl
index 1816325..8fbbc0f 100755
--- a/ldd_bee/ldd_bee.pl
+++ b/ldd_bee/ldd_bee.pl
@@ -37,7 +37,9 @@
 }
 
 unshift @libs,@bins;
+
 my %bee;
+
 for my $l (@libs) {
   print "# $l\n";
   if ( exists( $BEEQUERY{$l}) ) {
@@ -48,7 +50,6 @@
   }
 }
 my $b = 0;
-my $lc = 0;
 for my $bee ( sort keys %bee )  {
    print "\n";
    my ($beefile) = </usr/share/bee/$bee/*.bee>;
@@ -56,9 +57,10 @@
    print  "PKGALLPKG[$b]=$bee\n";
    print  "  BEEFILE[$b]=$beefile\n";
    printf "  BEETIME[$b]=%d # %s (%s)\n",$mt,years(time-$mt,2),scalar(localtime($mt));
+   my $bc = 0;
    for my $lib ( sort keys %{$bee{$bee}} ) {
-     print "   BEELIB[$lc]=$lib\n";
-     $lc++;
+     print "  BEEF[$b][$bc]=$lib\n";
+     $bc++;
    }
    $b++;
 }