Changeset 27509 for main/trunk/greenstone2/perllib/util.pm

Timestamp:

2013-05-29T20:41:13+12:00 (11 years ago)

Author:

ak19

Message:

Using the recommended FileUtils.pm methods in place of the deprecated utils.pm methods.

File:

• main/trunk/greenstone2/perllib/util.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/util.pm

@@ -27 +27 @@
 
 use strict;
+use FileUtils;
 
 use Encode;
@@ -238 +239 @@
 
     $tmp_dirname = &FileUtils::filenameConcatenate($tmp_dirname, "tmp");
-    &util::mk_dir($tmp_dirname) if (!-e $tmp_dirname);
+    &FileUtils::makeDirectory($tmp_dirname) if (!-e $tmp_dirname);
 
     # add the timestamp into the path otherwise we can run into problems 
@@ -250 +251 @@
     $i++;
     }
-    &util::mk_dir($tmp_dirname);
+    &FileUtils::makeDirectory($tmp_dirname);
  
     return $tmp_dirname;