===================================================================
RCS file: /cvs/openbsd/fill_chroot/Attic/perl_to_chroot,v
retrieving revision 1.1
retrieving revision 1.8
diff -u -r1.1 -r1.8
--- openbsd/fill_chroot/Attic/perl_to_chroot	2005/12/21 18:04:06	1.1
+++ openbsd/fill_chroot/Attic/perl_to_chroot	2008/10/21 20:08:31	1.8
@@ -1,24 +1,14 @@
 #!/bin/sh
-# $RedRiver$
+# $RedRiver: perl_to_chroot,v 1.7 2008/09/16 22:14:04 andrew Exp $
 
-PERLLIBS=`ldd /usr/bin/perl | cut -d ' ' -f 7 | sed -e 's/:$//'`
-CHROOT=/home/andrew/www
+CHROOT=${CHROOT:=/var/www}
 
-for f in ${PERLLIBS} /usr/libdata/perl5/ /usr/local/libdata/perl5; do
-  DESTDIR=${CHROOT}`dirname ${f}`
+for f in `find_depends /usr/bin/perl` \
+        /usr/libdata/perl5 \
+        /usr/local/libdata/perl5 \
+        ; do
 
-  if [ ! -d ${DESTDIR} ]; then
-    echo mkdir -p ${DESTDIR}
-    mkdir -p ${DESTDIR}
-  fi
+  echo pax -r -w -L -p e ${f} ${CHROOT}
+  pax -r -w -L -p e ${f} ${CHROOT}
 
-  RECURSE=
-  if [ -d ${f} ]; then
-    RECURSE=-r
-  fi
-
-  echo cp ${RECURSE} ${f} ${DESTDIR}
-  cp ${RECURSE} ${f} ${DESTDIR}
-
 done
-