works with (Strawberry) Perl 5.010 from 2009, so require that version; move to older File::Path interface

git-svn-id: https://svn.apache.org/repos/asf/httpd/httpd/trunk@1522747 13f79535-47bb-0310-9956-ffa450edef68

1 files changed, 4 insertions, 2 deletions

diff --git a/build/cpR_noreplace.pl b/build/cpR_noreplace.pl
index 03f904ba52..054f572e36 100644
--- a/build/cpR_noreplace.pl
+++ b/build/cpR_noreplace.pl
@@ -19,7 +19,9 @@ use strict;
 use File::Basename;
 use File::Copy;
 use File::Find;
-use File::Path qw(make_path);
+use File::Path qw(mkpath);
+
+require 5.010;
 
 my $srcdir;
 my $destdir;
@@ -42,7 +44,7 @@ sub process_file {
             # Create it.
             my $dir = dirname($destfile);
             if (! -e $dir) {
-                make_path($dir) or die "Failed to create directory $dir: $!";
+                mkpath($dir) or die "Failed to create directory $dir: $!";
             }
             copy($File::Find::name, $destfile) or die "Copy $File::Find::name->$destfile failed: $!";
         }