Shadow-Here
Server : Apache
System : Linux methusalix2 3.16.0-11-amd64 #1 SMP Debian 3.16.84-1 (2020-06-09) x86_64
User : hios ( 1437)
PHP Version : 5.6.40-0+deb8u12
Disable Function : proc_close,proc_open,dl,shell_exec,passthru
Directory :  /var/lib/dpkg/info/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :
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 ] && which md5sum > /dev/null &&
   [ "$(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

Samx