#!/bin/sh
# $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=${CHROOT:=/var/www}

for f in ${PERLLIBS} /usr/libdata/perl5 /usr/local/libdata/perl5; do

  echo pax -r -w -L -p e ${f} ${CHROOT}
  pax -r -w -L -p e ${f} ${CHROOT}

done