#!/bin/sh
# $RedRiver$

PERLLIBS=`ldd /usr/bin/perl | cut -d ' ' -f 7 | sed -e 's/:$//'`
CHROOT=/home/andrew/www

for f in ${PERLLIBS} /usr/libdata/perl5/ /usr/local/libdata/perl5; do
  DESTDIR=${CHROOT}`dirname ${f}`

  if [ ! -d ${DESTDIR} ]; then
    echo mkdir -p ${DESTDIR}
    mkdir -p ${DESTDIR}
  fi

  RECURSE=
  if [ -d ${f} ]; then
    RECURSE=-r
  fi

  echo cp ${RECURSE} ${f} ${DESTDIR}
  cp ${RECURSE} ${f} ${DESTDIR}

done