mirror of
https://github.com/apache/httpd.git
synced 2025-08-03 16:33:59 +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
|
* 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
|
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
|
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:
|
Generally:
|
||||||
|
|
||||||
|
@ -19,7 +19,9 @@ use strict;
|
|||||||
use File::Basename;
|
use File::Basename;
|
||||||
use File::Copy;
|
use File::Copy;
|
||||||
use File::Find;
|
use File::Find;
|
||||||
use File::Path qw(make_path);
|
use File::Path qw(mkpath);
|
||||||
|
|
||||||
|
require 5.010;
|
||||||
|
|
||||||
my $srcdir;
|
my $srcdir;
|
||||||
my $destdir;
|
my $destdir;
|
||||||
@ -42,7 +44,7 @@ sub process_file {
|
|||||||
# Create it.
|
# Create it.
|
||||||
my $dir = dirname($destfile);
|
my $dir = dirname($destfile);
|
||||||
if (! -e $dir) {
|
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: $!";
|
copy($File::Find::name, $destfile) or die "Copy $File::Find::name->$destfile failed: $!";
|
||||||
}
|
}
|
||||||
|
Reference in New Issue
Block a user