Take the 2-minute tour ×  I am using a Perl script which deletes
the data from mqueue folder for sendmail.  When I setuid to that
Perl script and try to run it from user it throws this message:
Insecure dependency in chdir while running setuid at /file/find
How to solve it and succesfully run the script with root
priveleges?   use strict;  my $qtool =
"/usr/local/bin/qtool.pl"; my $mqueue_directory =
"/var/spool/mqueue"; my $messages_removed = 0;  use File::Find;
# Recursively find all files and directories in
$mqueue_directory find(\&wanted, $mqueue_directory);  sub wanted
{    # Is this a qf* file?    if ( /^qf(\w{14})/ ) {       my
$qf_file = $_;       my $queue_id = $1;       my $deferred = 0;
my $from_postmaster = 0;       my $delivery_failure = 0;
my $double_bounce = 0;       open (QF_FILE, $_);
while(<QF_FILE>) {          $deferred = 1 if ( /^MDeferred/ );
$from_postmaster = 1 if ( /^S<>$/ );          $delivery_failure
= 1 if \             ( /^H\?\?Subject: DELIVERY FAILURE