bug fixes and enhancements

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;
@@ -29,7 +36,10 @@
   }
 }
 
+unshift @libs,@bins;
+
 my %bee;
+
 for my $l (@libs) {
   print "# $l\n";
   if ( exists( $BEEQUERY{$l}) ) {
@@ -40,17 +50,17 @@
   }
 }
 my $b = 0;
-my $lc = 0;
 for my $bee ( sort keys %bee )  {
    print "\n";
    my ($beefile) = </usr/share/bee/$bee/*.bee>;
    my $mt = (stat($beefile))[9];
    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++;
 }