Don't know much about perl, but I suspect this is due to the perl6 thing
...
[root@fulgore:/home/ftp/pub/linux/mandrake-devel/cooker/Mandrake/RPMS]#
rpm -Uvh arpwatch-2.1a4-5mdk.i586.rpm
arpwatch
##################################################
autoirpm
##################################################
Died at /usr/sbin/autoirpm.uninstall line 8.
execution of script failed
Died at /usr/sbin/autoirpm.uninstall line 8.
execution of script failed
Died at /usr/sbin/autoirpm.uninstall line 8.
execution of script failed
Died at /usr/sbin/autoirpm.uninstall line 8.
execution of script failed
Died at /usr/sbin/autoirpm.uninstall line 8.
execution of script failed
[root@fulgore:/home/ftp/pub/linux/mandrake-devel/cooker/Mandrake/RPMS]#
rpm -qp --scripts autoirpm-0.3-5mdk.i586.rpm
preuninstall script (through /bin/sh):
autoirpm.uninstall
[root@fulgore:/home/ftp/pub/linux/mandrake-devel/cooker/Mandrake/RPMS]#
rpm -qpl autoirpm-0.3-5mdk.i586.rpm |grep uni
/usr/sbin/autoirpm.uninstall
[root@fulgore:/home/ftp/pub/linux/mandrake-devel/cooker/Mandrake/RPMS]#
more /usr/sbin/autoirpm.uninstall
#!/usr/bin/perl
$DIR = "/var/lib/urpmi";
$BASE = "$DIR/autoirpm";
$AUTO_INSTALL_BIN_LIST = "$BASE.binaries";
$INSTALL_SCRIPT_REP = "$BASE.scripts";
open F, $AUTO_INSTALL_BIN_LIST or die;
map { chop; remove_links_and_scripts($_) } <F>;
close F;
sub remove_links_and_scripts($) {
my ($rpm, @progs) = split;
my $script = "$INSTALL_SCRIPT_REP/$rpm";
-e $script or return 0; # not installed for this package
foreach (<@progs>) {
readlink "/$_" ne $script and next;
unlink "/$_" or warn "removing $_ failed";
}
unlink $script or warn "removing $script failed";
}
[root@fulgore:/home/ftp/pub/linux/mandrake-devel/cooker/Mandrake/RPMS]#
--
Eugenio Diaz, BSEE/BSCE
Linux Engineer
[EMAIL PROTECTED]
