Changeset 27393

Show
Ignore:
Timestamp:
23.05.2013 12:59:21 (6 years ago)
Author:
jmt12
Message:

Replace hardcoded -e with FileUtils::fileExists() call and util::rm() with FileUtils::removeFiles() call

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/doc.pm

    r27350 r27393  
    9292        # Use the FileUtil library methods as they are aware of more special 
    9393        # cases such as HDFS [jmt12] 
    94     ##if (&util::file_exists($source_filename)) { 
    95     if (-e $source_filename) { 
     94    if (&FileUtils::fileExists($source_filename)) 
     95        { 
    9696        # See if we can do better for Windows with a filename 
    9797        if ($ENV{'GSDLOS'} =~ /^windows$/i) { 
     
    538538        } 
    539539        $OID = $self->_calc_OID ($filename); 
    540         &util::rm ($filename); 
     540        &FileUtils::removeFiles($filename); 
    541541        } 
    542542    }