Problem in using rmtree.

Hi,
I've create a function using File::Path rmtree that cleans a directory, including its contents.
However I encounter the following error:
====================================================
Can't remove directory /cmbase/INTEG_TEST/LOGS/ctp_included_in_log/SINGLE_CTP_51527_20080725_cronus_1396866/DUMP_CTP_OBJECTS_SQL: Do not specify an existing file. at nsm_ctp_included_in_single.pl line 2487
=====================================================

The following is the function I've created.
#-----------------------------------------------------------------------------------------
#  FUNCTION: cleanup
#          : Recursively delete a directory and everything in it. All directories and file will be removed including the specified directory.
#-----------------------------------------------------------------------------------------
sub cleanup
{
    my $dir = shift;
      
      rmtree( "$dir", {error => \my $err} ); //This is line 2487
      for my $diag (@$err)
      {
            my ($file, $message) = each %$diag;
            print SYSTEM_OUT "WARNING: Problem unlinking $file: $message\n";
            $warning_count++;
        }    
}Start Free Trial