#! /bin/sh
# perl-5.005-suid.postinst - call after dpkg has unpacked
# written by Darren Stalder (whooptidoo!)
# $Id: suid.postinst,v 1.2 1999/07/06 14:30:13 torin Exp torin $
#

set -e

case "$1" in
    configure)
        # ripped off of debhelper
	if command -v suidregister >/dev/null 2>&1 && [ -e /etc/suid.conf ]; then
	    suidregister -s perl-5.005-suid /usr/bin/suidperl-5.005 root root 04755
	    suidregister -s perl-5.005-suid /usr/bin/sperl5.00503 root root 04755
	else
	    chown root.root /usr/bin/suidperl-5.005
	    chmod 04755 /usr/bin/suidperl-5.005
	fi
	update-alternatives --install /usr/bin/suidperl suidperl /usr/bin/suidperl-5.005 5005 \
	    --slave /usr/share/man/man1/suidperl.1p.gz suidperl.1p.gz /usr/share/man/man1/suidperl-5.005.1p.gz
	if [ -d /usr/doc ]; then
	    if [ ! -e /usr/doc/perl-5.005-suid -a -L /usr/share/doc/perl-5.005-suid ]; then
                ln -s ../share/doc/perl-5.005-suid /usr/doc/perl-5.005-suid
	    fi
	fi
    ;;

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

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

exit 0

#
# end of perl-5.005-suid.postinst