#!/bin/sh -
# perl-base.prerm - called by dpkg before deleting
# written by Darren Stalder (whooptidoo!)
# $Id: base.prerm,v 1.1 1997/11/03 09:25:38 torin Exp $
#

set -e

case "$1" in
    remove|upgrade|deconfigure)
	cd /usr/bin
	test -f perl.dist || ln perl perl.dist
    ;;

    failed-upgrade)
    ;;

    *)
        echo "prerm called with unknown argument \`$1'" >&2
        exit 1
    ;;
esac

exit 0

# Local Variables:
# vc-master-templates:(("%s../../RCS/%s,v" . RCS))
# End:
