| 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.130.124 H O M E |
| Filename | /var/lib/dpkg/info/perl.postinst |
| Size | 752 |
| Permission | rwxr-xr-x |
| Owner | root : root |
| Create time | 27-Apr-2025 10:10 |
| Last modified | 21-Nov-2018 01:30 |
| Last accessed | 27-Apr-2025 10:11 |
| Actions | edit | rename | delete | download (gzip) |
| View | text | code | image |
#!/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.18.0
then
dpkg-trigger perl-major-upgrade
fi
fi
exit 0
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.18.0
then
dpkg-trigger perl-major-upgrade
fi
fi
exit 0