Changeset 28396

Timestamp:

2013-10-14T10:00:09+13:00 (11 years ago)

Author:

davidb

Message:

Code changed over to John's FileUtil.pm module

File:

• gs2-extensions/music-ir-src/trunk/perllib/plugins/jAudioExtractor.pm (modified) (2 diffs)

gs2-extensions/music-ir-src/trunk/perllib/plugins/jAudioExtractor.pm

@@ -30 +30 @@
 
 use Cwd;
+
+use FileUtil;
 
 use strict;
@@ -103 +105 @@
 
     my $ace_xml_output_directory = &util::filename_cat($gsdl_home,"tmp"); # Set the directory to save the the ACE XML output files in
-    if (!util::dir_exists($ace_xml_output_directory)) {
-    util::mk_dir($ace_xml_output_directory);
+    if (!FileUtil::directoryExists($ace_xml_output_directory)) {
+    FileUtil::makeDirectory($ace_xml_output_directory);
     }
     $self->{'ace_xml_output_directory'} = $ace_xml_output_directory;