K2LL33D SHELL

 Apache/2.4.7 (Ubuntu)
 Linux sman1baleendah 3.13.0-24-generic #46-Ubuntu SMP Thu Apr 10 19:11:08 UTC 2014 x86_64
 uid=33(www-data) gid=33(www-data) groups=33(www-data)
 safemode : OFF
 MySQL: ON | Perl: ON | cURL: OFF | WGet: ON
  >  / var / lib / dpkg / info / 		server ip : 104.21.89.46

your ip : 172.69.214.173

H O M E


Filename/var/lib/dpkg/info/perl-modules.preinst
Size1.07 kb
Permissionrwxr-xr-x
Ownerroot : root
Create time27-Apr-2025 10:10
Last modified21-Nov-2018 01:12
Last accessed06-Jul-2025 21:48
Actionsedit | rename | delete | download (gzip)
Viewtext | code | image
#!/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