===================================================================
RCS file: /cvs/openbsd/fill_chroot/find_depends,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- openbsd/fill_chroot/find_depends	2005/12/21 18:04:06	1.1
+++ openbsd/fill_chroot/find_depends	2005/12/21 18:16:03	1.2
@@ -1,33 +1,19 @@
 #!/usr/bin/perl
-# $RedRiver$
+# $RedRiver: find_depends,v 1.1 2005/12/21 18:04:06 andrew Exp $
 use strict;
 use warnings;
 
-# find www/ -name *.so* | xargs find_depends | sort -u | xargs -I {} cp {} /home/andrew/www{} 
+# find /home/andrew/www/ -name *.so* | xargs find_depends | sort -u | xargs -I {} cp {} /home/andrew/www{} 
 
-
-#use OpenBSD::PackageInfo;
-#use OpenBSD::PackingList;
-#use OpenBSD::SharedLibs;
-#use Data::Dumper;
-
-#my $dir = '/var/db/pkg';
-#my $pkg = 'p5-DBD-mysql-3.0002';
-#my $pkg = 'p5-DBD-mysql';
-
-
-
-#my $file = shift || '/usr/local/libdata/perl5/site_perl/i386-openbsd/auto/DBD/mysql/mysql.so';
-
-
 die unless @ARGV;
 
 my %libs;
+
 foreach my $file (@ARGV) {
-  my $libs = find_libs($file);
-  #print Dumper $libs;
-  foreach (keys %{ $libs }) {
-    $libs{ $_ } = $libs->{$_};
+  my $l = find_libs($file);
+
+  foreach (keys %{ $l }) {
+    $libs{$_} = $l->{$_};
   }
 }
 
@@ -36,45 +22,6 @@
 }
 
 exit;
-
-#OpenBSD::SharedLibs::add_system_libs('/');
-
-#print installed_packages();
-#print installed_name($pkg);
-#print info_names();
-#exit;
-
-#my $plist = OpenBSD::PackingList->from_installation($pkg) || die $!;
-
-#print Dumper $plist->{wantlib};
-
-#print Dumper $OpenBSD::SharedLibs::registered_libs;
-
-#foreach (@{ $plist->{wantlib} }) {
-#  print Dumper $_->{name}, find_library($_->{name});
-#}
-
-#sub find_library
-#{
-#   my $spec = shift;
-#   my @r;
-#   OpenBSD::SharedLibs::add_system_libs('/');
-#
-#   my $lib = '/usr';
-#   @r = OpenBSD::SharedLibs::lookup_libspec('/usr', $spec);
-#   unless (@r) {
-#		$lib = '/usr/X11R6';
-#      @r = OpenBSD::SharedLibs::lookup_libspec('/usr/X11R6', $spec);
-#   }
-#   unless (@r) {
-#      for my $pkg (installed_packages()) {
-#          OpenBSD::SharedLibs::add_package_libs($pkg, 1);
-#      }
-#      $lib = '/usr/local';
-#      @r = OpenBSD::SharedLibs::lookup_libspec('/usr/local', $spec);
-#   }
-#   return $lib, @r;
-#}
 
 sub find_libs
 {