#!/bin/sh
# $RedRiver: perl_to_chroot,v 1.5 2006/06/29 18:44:19 andrew Exp $

PERLLIBS=`ldd /usr/bin/perl | cut -c 41- | grep ^/`
CHROOT=${CHROOT:=/var/www}

for f in /usr/bin/perl \
        ${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