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
This commit is contained in:
Jeff Trawick
2013-09-13 00:01:21 +00:00
parent c1ffa92cbd
commit ee5444e12c
2 changed files with 4 additions and 4 deletions

View File

@ -278,8 +278,6 @@ Known Bugs and Limitations
* no support for static support library builds; unclear if that is a
requirement; if so: taking PCRE as an example, we'd need to detect that it
is static and then turn on PCRE_STATIC for the libhttpd build
* build/cpR_noreplace.pl doesn't declare what version of Perl is required
and doesn't work with File::Path that is missing make_path
Generally:

View File

@ -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: $!";
}