post_install() {
	## we should kill some of these someday , eg when we rebuild all perl apps
	## against some version..
	for ver in 5.26.{1,2} 5.28.{1,2}; do
		if [ -d usr/lib/perl5/$ver ] && \
			[ ! -h usr/lib/perl5/$ver ]; then
			echo -n "adapting old version to 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 fixing perl"
		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
}

post_upgrade() {
	post_install
}

pre_remove() {
	for ver in 5.22.{0,1,2} 5.24.{0,1,3} 5.26.{1,2} 5.28.{1,2}; do
		rm usr/lib/perl5/$ver
		rm usr/lib/perl5/site_perl/$ver
		rm usr/bin/perl$ver
	done
}

op=$1
shift

$op $*