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: Andy Polyakov <appro@openssl.org>
This commit is contained in:
Richard Levitte 2016-02-08 16:27:15 +01:00
parent dd9589740d
commit dca99383c2
1 changed files with 5 additions and 5 deletions

View File

@ -11,7 +11,7 @@ require 5.000;
use strict; use strict;
use File::Basename; use File::Basename;
use File::Spec::Functions qw/:DEFAULT abs2rel rel2abs/; use File::Spec::Functions qw/:DEFAULT abs2rel rel2abs/;
use File::Path qw/make_path/; use File::Path qw/mkpath/;
use Cwd qw/:DEFAULT realpath/; use Cwd qw/:DEFAULT realpath/;
# see INSTALL for instructions. # see INSTALL for instructions.
@ -1172,7 +1172,7 @@ if ($target{build_scheme}->[0] eq "unified") {
my $dir = shift; my $dir = shift;
# Required, because realpath only works properly with existing dirs # Required, because realpath only works properly with existing dirs
make_path($dir); mkpath($dir);
my $res = realpath($dir); my $res = realpath($dir);
return $res; return $res;
@ -1216,7 +1216,7 @@ if ($target{build_scheme}->[0] eq "unified") {
my $sourced = catdir($srcdir, $_->[0]); my $sourced = catdir($srcdir, $_->[0]);
my $buildd = catdir($blddir, $_->[0]); my $buildd = catdir($blddir, $_->[0]);
make_path($buildd); mkpath($buildd);
my $f = $_->[1]; my $f = $_->[1];
# The basic things we're trying to build # 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 "BN_LLONG mode\n" if $config{bn_ll};
print "RC4 uses $config{rc4_int}\n" if $config{rc4_int} != $def_int; 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"), run_dofile(catfile($blddir, "include/openssl/opensslconf.h"),
catfile($srcdir, "include/openssl/opensslconf.h.in")); catfile($srcdir, "include/openssl/opensslconf.h.in"));
make_path(catdir($blddir, "crypto/include/internal")); mkpath(catdir($blddir, "crypto/include/internal"));
foreach my $alg ( 'bn' ) { foreach my $alg ( 'bn' ) {
run_dofile(catfile($blddir, "crypto/include/internal/${alg}_conf.h"), run_dofile(catfile($blddir, "crypto/include/internal/${alg}_conf.h"),
catfile($srcdir, "crypto/include/internal/${alg}_conf.h.in")); catfile($srcdir, "crypto/include/internal/${alg}_conf.h.in"));