view release on metacpan or  search on metacpan

lib/Batch/Batchrun/Retain.pm  view on Meta::CPAN

      }
    else
      {
      if (not copy($Retain{ORIGINAL},$currentfile) )
        {
        warn("*** Copy from $Retain{ORIGINAL}\n***    to $currentfile \n *** FAILED: $!\n");
        return(0);
        }
      }
      
    if ( $Retain{CHMOD} and not chmod $Retain{CHMOD},$currentfile )
        {
        warn("*** CHMOD $Retain{CHMOD} of $currentfile\n FAILED: $!\n");
        }  
        
    if ( $Retain{DELETE} and not unlink($Retain{ORIGINAL}) )
      {
      warn("*** CHMOD $Retain{CHMOD} of $currentfile\n FAILED: $!\n");
      }         
      
    return(1);