===================================================================
RCS file: /cvs/openbsd/fill_chroot/Attic/perl_to_chroot,v
retrieving revision 1.3
retrieving revision 1.7
diff -u -r1.3 -r1.7
--- openbsd/fill_chroot/Attic/perl_to_chroot	2005/12/21 19:14:12	1.3
+++ openbsd/fill_chroot/Attic/perl_to_chroot	2008/09/16 23:14:04	1.7
@@ -1,23 +1,15 @@
 #!/bin/sh
-# $RedRiver: perl_to_chroot,v 1.2 2005/12/21 18:06:32 andrew Exp $
+# $RedRiver: perl_to_chroot,v 1.6 2008/09/12 23:07:59 andrew Exp $
 
-PERLLIBS=`ldd /usr/bin/perl | cut -d ' ' -f 7 | sed -e 's/:$//'`
 CHROOT=${CHROOT:=/var/www}
 
-for f in ${PERLLIBS} /usr/libdata/perl5 /usr/local/libdata/perl5; do
-  DESTDIR=${CHROOT}`dirname ${f}`
+for f in /usr/bin/perl \
+	`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
-
-  RECURSE=
-  if [ -d ${f} ]; then
-    RECURSE=-r
-  fi
-
-  echo cp ${RECURSE} ${f} ${DESTDIR}
-  cp ${RECURSE} ${f} ${DESTDIR}
+  echo pax -r -w -L -p e ${f} ${CHROOT}
+  pax -r -w -L -p e ${f} ${CHROOT}
 
 done