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

set -e

case "$1" in
    configure)
	ln -sf asm-arm /usr/lib/perl5/5.005/arm-linux/asm
	if [ -w /usr/local/lib -a ! -e /usr/local/lib/site_perl ]; then
	    mkdir -p /usr/local/lib/site_perl/arm-linux
	    chown root:staff /usr/local/lib/site_perl/arm-linux
	    chmod 2775 /usr/local/lib/site_perl/arm-linux
	fi
	# Add checks for the old i486-linux directories created by poor perlconfigs
	if [ 'arm-linux' = 'i386-linux' -a -d /usr/lib/perl5/i486-linux ]; then
	    # these two should never fail
	    find /usr/lib/perl5/i486-linux -name '*.ph' -print0 | xargs -r0 rm -f 2> /dev/null || true
	    find /usr/lib/perl5/i486-linux -type d -links 2 -print0 | xargs -r0 rmdir -p 2> /dev/null || true
	fi
	# the last will remove all the directories that are now empty or will be empty when the empty subdirs disappear

	update-alternatives --install /usr/share/man/man1/perl.1p.gz perl.1p.gz /usr/share/man/man1/perl-5.005.1p.gz 5005

	# The following update-alternatives are auto-generated in make.versions
	update-alternatives --install /usr/bin/a2p a2p /usr/bin/a2p-5.005 5005 \
	  --slave /usr/share/man/man1/a2p.1p.gz a2p.1p.gz /usr/share/man/man1/a2p-5.005.1p.gz
	update-alternatives --install /usr/bin/c2ph c2ph /usr/bin/c2ph-5.005 5005 \
	  --slave /usr/share/man/man1/c2ph.1p.gz c2ph.1p.gz /usr/share/man/man1/c2ph-5.005.1p.gz
	update-alternatives --install /usr/bin/h2ph h2ph /usr/bin/h2ph-5.005 5005 \
	  --slave /usr/share/man/man1/h2ph.1p.gz h2ph.1p.gz /usr/share/man/man1/h2ph-5.005.1p.gz
	update-alternatives --install /usr/bin/h2xs h2xs /usr/bin/h2xs-5.005 5005 \
	  --slave /usr/share/man/man1/h2xs.1p.gz h2xs.1p.gz /usr/share/man/man1/h2xs-5.005.1p.gz
	update-alternatives --install /usr/bin/perlbug perlbug /usr/bin/perlbug-5.005 5005 \
	  --slave /usr/share/man/man1/perlbug.1p.gz perlbug.1p.gz /usr/share/man/man1/perlbug-5.005.1p.gz
	update-alternatives --install /usr/bin/perldoc perldoc /usr/bin/perldoc-5.005 5005 \
	  --slave /usr/share/man/man1/perldoc.1p.gz perldoc.1p.gz /usr/share/man/man1/perldoc-5.005.1p.gz
	update-alternatives --install /usr/bin/pl2pm pl2pm /usr/bin/pl2pm-5.005 5005 \
	  --slave /usr/share/man/man1/pl2pm.1p.gz pl2pm.1p.gz /usr/share/man/man1/pl2pm-5.005.1p.gz
	update-alternatives --install /usr/bin/splain splain /usr/bin/splain-5.005 5005 \
	  --slave /usr/share/man/man1/splain.1p.gz splain.1p.gz /usr/share/man/man1/splain-5.005.1p.gz
	update-alternatives --install /usr/bin/perlcc perlcc /usr/bin/perlcc-5.005 5005
	update-alternatives --install /usr/bin/s2p s2p /usr/bin/s2p-5.005 5005 \
	  --slave /usr/share/man/man1/s2p.1p.gz s2p.1p.gz /usr/share/man/man1/s2p-5.005.1p.gz
	update-alternatives --install /usr/bin/find2perl find2perl /usr/bin/find2perl-5.005 5005
	update-alternatives --install /usr/bin/pod2man pod2man /usr/bin/pod2man-5.005 5005 \
	  --slave /usr/share/man/man1/pod2man.1p.gz pod2man.1p.gz /usr/share/man/man1/pod2man-5.005.1p.gz
	update-alternatives --install /usr/bin/pod2html pod2html /usr/bin/pod2html-5.005 5005 \
	  --slave /usr/share/man/man1/pod2html.1p.gz pod2html.1p.gz /usr/share/man/man1/pod2html-5.005.1p.gz
	update-alternatives --install /usr/bin/pod2latex pod2latex /usr/bin/pod2latex-5.005 5005
	update-alternatives --install /usr/bin/pod2text pod2text /usr/bin/pod2text-5.005 5005 \
	  --slave /usr/share/man/man1/pod2text.1p.gz pod2text.1p.gz /usr/share/man/man1/pod2text-5.005.1p.gz \
	  --slave /usr/share/man/man1/../man3/Pod::Text.3pm.gz Pod::Text.3pm.gz /usr/share/man/man1/../man3/Pod::Text-5.005.3pm.gz
	update-alternatives --install /usr/bin/pstruct pstruct /usr/bin/pstruct-5.005 5005 \
	  --slave /usr/share/man/man1/pstruct.1p.gz pstruct.1p.gz /usr/share/man/man1/pstruct-5.005.1p.gz
	update-alternatives --install /usr/bin/rename rename /usr/bin/rename-5.005 5005 \
	  --slave /usr/share/man/man1/rename.1p.gz rename.1p.gz /usr/share/man/man1/rename-5.005.1p.gz
	update-alternatives --install /usr/bin/patchls patchls /usr/bin/patchls-5.005 5005

	update-alternatives --install /usr/share/emacs/site-lisp/cperl-mode.el cperl-mode.el \
	    /usr/share/emacs/site-lisp/cperl-mode-5.005.el 5005

	# install compatibility symlink for the move from FSSTD to FHS
	if [ -d /usr/doc ]; then
	    if [ ! -e /usr/doc/perl-5.005 -a -d /usr/share/doc/perl-5.005 ]; then
                ln -s ../share/doc/perl-5.005 /usr/doc/perl-5.005
	    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.postinst