Your IP : 18.116.36.48

Current Path : /var/lib/dpkg/info/
Upload File :
Current File : /var/lib/dpkg/info/perl.postinst

#!/bin/sh -e

if [ "$1" = configure ]
then
    # The 5.6.0 packages had /usr/share/doc/perl as a symlink to
    # perl-base, now the reverse.
    docs=/usr/share/doc
    if [ -L $docs/perl ] && [ ! -L $docs/perl-base ] && [ -d $docs/perl-base ]
    then
    rm -f $docs/perl
    mv $docs/perl-base $docs/perl
    ln -s perl $docs/perl-base
    fi

    # util-linux has an alternate rename
    update-alternatives --install /usr/bin/rename rename /usr/bin/prename 60 \
    --slave /usr/share/man/man1/rename.1.gz rename.1.gz \
        /usr/share/man/man1/prename.1.gz

    if which dpkg-trigger >/dev/null 2>&1 && \
       [ -n "$2" ] && \
       dpkg --compare-versions "$2" lt 5.24.0
    then
        dpkg-trigger --no-await perl-major-upgrade
    fi
fi

exit 0