diff options
author | Jeff Trawick <trawick@apache.org> | 2013-09-13 00:01:21 +0000 |
---|---|---|
committer | Jeff Trawick <trawick@apache.org> | 2013-09-13 00:01:21 +0000 |
commit | ee5444e12cfbb9c5696143faaa46f5980a5ae987 (patch) | |
tree | fc85bf5ba04b672830c1ff68047f6cf96f7cb382 /build | |
parent | c1ffa92cbd5018f1fba21bf13ba09306a0fd8356 (diff) | |
download | httpd-ee5444e12cfbb9c5696143faaa46f5980a5ae987.tar.gz |
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
Diffstat (limited to 'build')
-rw-r--r-- | build/cpR_noreplace.pl | 6 |
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: $!"; } |