File: perl-5.005-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 (17 lines) | stat: -rwxr-xr-x 308 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!/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.005
fi

exit 0