Changeset 28396

Show
Ignore:
Timestamp:
14.10.2013 10:00:09 (6 years ago)
Author:
davidb
Message:

Code changed over to John's FileUtil?.pm module

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gs2-extensions/music-ir-src/trunk/perllib/plugins/jAudioExtractor.pm

    r26276 r28396  
    3030 
    3131use Cwd; 
     32 
     33use FileUtil; 
    3234 
    3335use strict; 
     
    103105 
    104106    my $ace_xml_output_directory = &util::filename_cat($gsdl_home,"tmp"); # Set the directory to save the the ACE XML output files in 
    105     if (!util::dir_exists($ace_xml_output_directory)) { 
    106     util::mk_dir($ace_xml_output_directory); 
     107    if (!FileUtil::directoryExists($ace_xml_output_directory)) { 
     108    FileUtil::makeDirectory($ace_xml_output_directory); 
    107109    } 
    108110    $self->{'ace_xml_output_directory'} = $ace_xml_output_directory;