Changeset 27758 for main/trunk/greenstone2/perllib/FileUtils.pm

Timestamp:

2013-07-05T14:53:19+12:00 (11 years ago)

Author:

ak19

Message:

Using FileUtils instead of deprecated util subroutines. Also a typo fix in FileUtils

File:

• main/trunk/greenstone2/perllib/FileUtils.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/FileUtils.pm

@@ -279 +279 @@
       # make the new directory
       my ($filename) = $file =~ /([^\\\/]*)$/;
-      $dest = &filenameConcatnate($dest, $filename);
+      $dest = &filenameConcatenate($dest, $filename);
       my $store_umask = umask(0002);
       mkdir ($dest, 0777);