#!/usr/bin/perl

exit if ($^O !~ /linux/i);

if (! -e "/bin/rpm" && ! -e "/usr/bin/rpm") { exit(); }
                                                                                                                                      
if (-e "/usr/lib/libperl.so") {
        if (-e "/usr/sbin/exim") {
                $ldd = `ldd /usr/sbin/exim`;
        } elsif (-e "/usr/local/sbin/exim") {
                $ldd = `ldd /usr/local/sbin/exim`;
        }
        exit if ($ldd eq "");
        if ($ldd !~ /\/usr\/lib\/libperl\.so/) {
                rename("/usr/lib/libperl.so","/usr/sbin/libperl_dead.so");
        }
}