Your IP : 216.73.216.170

Current Path : /var/lib/dpkg/info/
Upload File :
Current File : //var/lib/dpkg/info/perl-modules.preinst

#!/bin/sh -e

# /etc/perl/Net/libnet.cfg mistakenly installed as /etc/Net in perl 5.8
if [ "$1" = upgrade ] && [ -f /etc/Net ] && [ -x /usr/bin/md5sum ] &&
   [ "$(/usr/bin/md5sum /etc/Net)" = "fb2946cae573b8ed3d654a180d458733  /etc/Net" ]
then
    rm -f /etc/Net
fi

# this used to be a symlink, see #536384
if [ -h /usr/share/doc/perl-modules ]; then
    rm -f /usr/share/doc/perl-modules
fi

# cpanp used to save its configuration to /usr/share
# the md5sum corresponds to the file we ship from 5.10.0-24 onwards
if [ "$1" = upgrade ] &&
   [ -f /usr/share/perl/5.10.0/CPANPLUS/Config/System.pm ] &&
   [ ! -e /etc/perl/CPANPLUS/Config/System.pm ] &&
   [ "$(md5sum /usr/share/perl/5.10.0/CPANPLUS/Config/System.pm)" != \
       "a8e8f612c37f8a5d1b73ebf5bd4e4473  /usr/share/perl/5.10.0/CPANPLUS/Config/System.pm" ]
then
   if [ -d /etc/perl/CPANPLUS/Config ] || mkdir -p /etc/perl/CPANPLUS/Config
   then
        mv /usr/share/perl/5.10.0/CPANPLUS/Config/System.pm \
           /etc/perl/CPANPLUS/Config/System.pm || true
        rmdir /usr/share/perl/5.10.0/CPANPLUS/Config  || true
   fi
fi

exit 0