compile_perl() { local noinstall=false local OPTIND=1 local opt while getopts "I" opt; do case "$opt" in I) local noinstall=true ;; esac; done shift $((OPTIND-1)) perl Build.PL --create_packlist=0 \ --prefix="/$dir_prefix" \ --destdir="$dir_install" \ --installdirs vendor \ --install_path script="/$dir_prefix/$dir_bindir" \ --install_path bin="/$dir_prefix/$dir_bindir" \ --install_path bindoc="/$dir_prefix/$dir_mandir/man1" \ --install_path libdoc="/$dir_prefix/$dir_mandir/man3" ./Build [ "$noinstall" = false ] && ./Build install || true }