Changeset 28396 for gs2-extensions


Ignore:
Timestamp:
10/14/13 10:00:09 (7 years ago)
Author:
davidb
Message:

Code changed over to John's FileUtil.pm module

File:
1 edited

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;
Note: See TracChangeset for help on using the changeset viewer.