File: perl-5.6-suid.postinst

package info (click to toggle)
perl-transition 6.3
  • links: PTS
  • area: main
  • in suites: woody
  • size: 76 kB
  • ctags: 2
  • sloc: sh: 230; makefile: 22
file content (21 lines) | stat: -rwxr-xr-x 464 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!/bin/sh -e

#DEBHELPER#

if [ "$1" = configure ]
then
    # update-alternatives is currently a perl program
    if [ ! -x /usr/bin/perl ]
    then
	echo "Error: no /usr/bin/perl, can't clean up old alternatives."
	exit 0
    fi

    update-alternatives --remove suidperl /usr/bin/suidperl-5.6

    # later versions of perl-5.6 made this a hard link after removing
    # the alternatives, now suidperl.1.gz
    rm -f /usr/share/man/man1/suidperl.1p.gz
fi

exit 0