#!/bin/sh
# $RedRiver: perl_to_chroot,v 1.4 2006/01/16 21:03:12 andrew Exp $

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

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

done