===================================================================
RCS file: /cvs/openbsd/fill_chroot/Attic/perl_to_chroot,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- openbsd/fill_chroot/Attic/perl_to_chroot	2006/01/16 21:03:12	1.4
+++ openbsd/fill_chroot/Attic/perl_to_chroot	2006/06/29 19:44:19	1.5
@@ -1,7 +1,7 @@
 #!/bin/sh
-# $RedRiver: perl_to_chroot,v 1.3 2005/12/21 19:14:12 andrew Exp $
+# $RedRiver: perl_to_chroot,v 1.4 2006/01/16 21:03:12 andrew Exp $
 
-PERLLIBS=`ldd /usr/bin/perl | cut -d ' ' -f 7 | sed -e 's/:$//'`
+PERLLIBS=`ldd /usr/bin/perl | cut -c 41- | grep ^/`
 CHROOT=${CHROOT:=/var/www}
 
 for f in ${PERLLIBS} /usr/libdata/perl5 /usr/local/libdata/perl5; do