提交 dca99383 编写于 作者: R Richard Levitte

Use File::Path::mkpath rather than File::Path::make_path

File::Path::make_path didn't show up before File::Path 2.06 / perl v5.10.1.
Because we're trying to stay compatible with perl v5.10.0 and up,
it's better to use the legacy interface.
Reviewed-by: NAndy Polyakov <appro@openssl.org>
上级 dd958974
......@@ -11,7 +11,7 @@ require 5.000;
use strict;
use File::Basename;
use File::Spec::Functions qw/:DEFAULT abs2rel rel2abs/;
use File::Path qw/make_path/;
use File::Path qw/mkpath/;
use Cwd qw/:DEFAULT realpath/;
# see INSTALL for instructions.
......@@ -1172,7 +1172,7 @@ if ($target{build_scheme}->[0] eq "unified") {
my $dir = shift;
# Required, because realpath only works properly with existing dirs
make_path($dir);
mkpath($dir);
my $res = realpath($dir);
return $res;
......@@ -1216,7 +1216,7 @@ if ($target{build_scheme}->[0] eq "unified") {
my $sourced = catdir($srcdir, $_->[0]);
my $buildd = catdir($blddir, $_->[0]);
make_path($buildd);
mkpath($buildd);
my $f = $_->[1];
# The basic things we're trying to build
......@@ -1688,11 +1688,11 @@ print "THIRTY_TWO_BIT mode\n" if $config{b32};
print "BN_LLONG mode\n" if $config{bn_ll};
print "RC4 uses $config{rc4_int}\n" if $config{rc4_int} != $def_int;
make_path(catdir($blddir, "include/openssl"));
mkpath(catdir($blddir, "include/openssl"));
run_dofile(catfile($blddir, "include/openssl/opensslconf.h"),
catfile($srcdir, "include/openssl/opensslconf.h.in"));
make_path(catdir($blddir, "crypto/include/internal"));
mkpath(catdir($blddir, "crypto/include/internal"));
foreach my $alg ( 'bn' ) {
run_dofile(catfile($blddir, "crypto/include/internal/${alg}_conf.h"),
catfile($srcdir, "crypto/include/internal/${alg}_conf.h.in"));
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册