Changeset 30305 for gs2-extensions

Timestamp:

2015-10-12T11:23:27+13:00 (9 years ago)

Author:

jmt12

Message:

replacing deprecated function calls to newer ones in FileUtils

File:

• gs2-extensions/parallel-building/trunk/src/perllib/dbutil/gdbmserver.pm (modified) (3 diffs)

gs2-extensions/parallel-building/trunk/src/perllib/dbutil/gdbmserver.pm

@@ -36 +36 @@
 use Fcntl qw(:flock);
 
+use FileUtils;
 use GDBMClient;
 use util;
@@ -57 +58 @@
 
   my $tmp_dir = &util::filename_cat($ENV{'GSDLHOME'},'tmp');
-  if (! &util::dir_exists($tmp_dir)) {
-      &util::mk_dir($tmp_dir,1);
+  if (! &FileUtils::directoryExists($tmp_dir)) {
+      &FileUtils::makeDirectory($tmp_dir, 1);
   }
 
@@ -206 +207 @@
   {
       my $tmp_collect_dir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},'tmp');
-      if (! &util::dir_exists($tmp_collect_dir)) {
-      &util::mk_dir($tmp_collect_dir,1);
+      if (! &FileUtils::directoryExists($tmp_collect_dir)) {
+      &FileUtils::makeDirectory($tmp_collect_dir, 1);
       }