mirror of
https://github.com/apache/httpd.git
synced 2025-08-01 16:41:19 +00:00
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:
@ -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:
|
||||
|
||||
|
@ -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: $!";
|
||||
}
|
||||
|
Reference in New Issue
Block a user