#! /bin/sh
# perl-base.postinst - call after dpkg has unpacked
# written by Darren Stalder (whooptidoo!)
# $Id: base.postinst,v 1.3 1998/05/14 08:43:25 torin Exp $
#

set -e

case "$1" in
    configure)
	cd /usr/bin; test -f perl.dist && (rm -f perl; mv perl.dist perl)
	# handle old disk installs that used parts of Perl w/o dpkg.
	rm -f /usr/lib/perl5/IO/Handle.pm /usr/lib/perl5/DynaLoader.pm
    ;;

    abort-upgrade|abort-remove|abort-deconfigure)
    ;;

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

exit 0

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