===================================================================
RCS file: /cvs/openbsd/fill_chroot/Attic/perl_to_chroot,v
retrieving revision 1.1
retrieving revision 1.4
diff -u -r1.1 -r1.4
--- openbsd/fill_chroot/Attic/perl_to_chroot	2005/12/21 18:04:06	1.1
+++ openbsd/fill_chroot/Attic/perl_to_chroot	2006/01/16 21:03:12	1.4
@@ -1,24 +1,12 @@
 #!/bin/sh
-# $RedRiver$
+# $RedRiver: perl_to_chroot,v 1.3 2005/12/21 19:14:12 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 ${PERLLIBS} /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
-