Changeset 30305 for gs2-extensions

Show
Ignore:
Timestamp:
12.10.2015 11:23:27 (4 years ago)
Author:
jmt12
Message:

replacing deprecated function calls to newer ones in FileUtils?

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gs2-extensions/parallel-building/trunk/src/perllib/dbutil/gdbmserver.pm

    r27179 r30305  
    3636use Fcntl qw(:flock); 
    3737 
     38use FileUtils; 
    3839use GDBMClient; 
    3940use util; 
     
    5758 
    5859  my $tmp_dir = &util::filename_cat($ENV{'GSDLHOME'},'tmp'); 
    59   if (! &util::dir_exists($tmp_dir)) { 
    60       &util::mk_dir($tmp_dir,1); 
     60  if (! &FileUtils::directoryExists($tmp_dir)) { 
     61      &FileUtils::makeDirectory($tmp_dir, 1); 
    6162  } 
    6263 
     
    206207  { 
    207208      my $tmp_collect_dir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},'tmp'); 
    208       if (! &util::dir_exists($tmp_collect_dir)) { 
    209       &util::mk_dir($tmp_collect_dir,1); 
     209      if (! &FileUtils::directoryExists($tmp_collect_dir)) { 
     210      &FileUtils::makeDirectory($tmp_collect_dir, 1); 
    210211      } 
    211212