# arg 1:  the new package version
post_install() {
for ver in 5.8.{0,1,2,3,4,5,6,7,8}; do
if [ -d usr/lib/perl5/$ver ] && [ ! -h usr/lib/perl5/$ver ]; then
echo -n "adapting old version: $ver... "
cp --no-dereference -pr --reply=no usr/lib/perl5/$ver/* usr/lib/perl5/current/ >/dev/null 2>&1
cp --no-dereference -pr --reply=no usr/lib/perl5/site_perl/$ver/* usr/lib/perl5/site_perl/current/ >/dev/null 2>&1
rm -rf usr/lib/perl5/$ver usr/lib/perl5/site_perl/$ver >/dev/null 2>&1
echo "done"
fi
[ -h usr/bin/perl$ver ] || ln -sf perl usr/bin/perl$ver
[ -h usr/lib/perl5/$ver ] || ln -sf current usr/lib/perl5/$ver
[ -h usr/lib/perl5/site_perl/$ver ] || ln -sf current usr/lib/perl5/site_perl/$ver
done
/bin/true
}

# arg 1:  the new package version
# arg 2:  the old package version
post_upgrade() {
post_install $1
/bin/true
}

# arg 1:  the old package version
pre_remove() {
for ver in 5.8.{0,1,2,3,4,5,6,7,8}; do
rm usr/lib/perl5/$ver
rm usr/lib/perl5/site_perl/$ver
rm usr/bin/perl$ver
done
/bin/true
}

op=$1
shift

$op $*