mirror of https://github.com/openssl/openssl
Consolidate the locations where we have our internal perl modules
Instead of having perl modules under test/testlib, util and util/perl, consolidate them all to be inside util/perl. Reviewed-by: Andy Polyakov <appro@openssl.org> (Merged from https://github.com/openssl/openssl/pull/4069)
This commit is contained in:
parent
c4d2e483a3
commit
cb6afcd6ee
|
@ -12,6 +12,8 @@
|
||||||
use 5.10.0;
|
use 5.10.0;
|
||||||
use strict;
|
use strict;
|
||||||
use Config;
|
use Config;
|
||||||
|
use FindBin;
|
||||||
|
use lib "$FindBin::Bin/util/perl";
|
||||||
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/mkpath/;
|
use File::Path qw/mkpath/;
|
||||||
|
@ -1384,7 +1386,6 @@ my %unified_info = ();
|
||||||
|
|
||||||
my $buildinfo_debug = defined($ENV{CONFIGURE_DEBUG_BUILDINFO});
|
my $buildinfo_debug = defined($ENV{CONFIGURE_DEBUG_BUILDINFO});
|
||||||
if ($builder eq "unified") {
|
if ($builder eq "unified") {
|
||||||
use lib catdir(dirname(__FILE__),"util");
|
|
||||||
use with_fallback qw(Text::Template);
|
use with_fallback qw(Text::Template);
|
||||||
|
|
||||||
sub cleandir {
|
sub cleandir {
|
||||||
|
@ -1512,8 +1513,10 @@ if ($builder eq "unified") {
|
||||||
my %generate = ();
|
my %generate = ();
|
||||||
|
|
||||||
push @{$config{build_infos}}, catfile(abs2rel($sourced, $blddir), $f);
|
push @{$config{build_infos}}, catfile(abs2rel($sourced, $blddir), $f);
|
||||||
my $template = Text::Template->new(TYPE => 'FILE',
|
my $template =
|
||||||
SOURCE => catfile($sourced, $f));
|
Text::Template->new(TYPE => 'FILE',
|
||||||
|
SOURCE => catfile($sourced, $f),
|
||||||
|
PREPEND => qq{use lib "$FindBin::Bin/util/perl";});
|
||||||
die "Something went wrong with $sourced/$f: $!\n" unless $template;
|
die "Something went wrong with $sourced/$f: $!\n" unless $template;
|
||||||
my @text =
|
my @text =
|
||||||
split /^/m,
|
split /^/m,
|
||||||
|
|
|
@ -22,7 +22,7 @@ BEGIN {
|
||||||
OpenSSL::Test::setup("no_test_here");
|
OpenSSL::Test::setup("no_test_here");
|
||||||
}
|
}
|
||||||
|
|
||||||
use lib srctop_dir("util"); # for with_fallback
|
use lib srctop_dir("util", "perl"); # for with_fallback
|
||||||
use lib srctop_dir("test", "ssl-tests"); # for ssltests_base
|
use lib srctop_dir("test", "ssl-tests"); # for ssltests_base
|
||||||
|
|
||||||
use with_fallback qw(Text::Template);
|
use with_fallback qw(Text::Template);
|
||||||
|
|
|
@ -120,7 +120,7 @@ sub test_conf {
|
||||||
|
|
||||||
skip 'failure', 2 unless
|
skip 'failure', 2 unless
|
||||||
ok(run(perltest(["generate_ssl_tests.pl", $input_file],
|
ok(run(perltest(["generate_ssl_tests.pl", $input_file],
|
||||||
interpreter_args => [ "-I", srctop_dir("test", "testlib")],
|
interpreter_args => [ "-I", srctop_dir("util", "perl")],
|
||||||
stdout => $tmp_file)),
|
stdout => $tmp_file)),
|
||||||
"Getting output from generate_ssl_tests.pl.");
|
"Getting output from generate_ssl_tests.pl.");
|
||||||
|
|
||||||
|
|
|
@ -12,7 +12,6 @@ use warnings;
|
||||||
|
|
||||||
use File::Compare qw/compare_text/;
|
use File::Compare qw/compare_text/;
|
||||||
use File::Copy;
|
use File::Copy;
|
||||||
use lib 'testlib';
|
|
||||||
use OpenSSL::Test qw/:DEFAULT/;
|
use OpenSSL::Test qw/:DEFAULT/;
|
||||||
|
|
||||||
my %conversionforms = (
|
my %conversionforms = (
|
||||||
|
|
|
@ -25,12 +25,11 @@ my $TAP_Harness = can_load(modules => { 'TAP::Harness' => undef })
|
||||||
my $srctop = $ENV{SRCTOP} || $ENV{TOP};
|
my $srctop = $ENV{SRCTOP} || $ENV{TOP};
|
||||||
my $bldtop = $ENV{BLDTOP} || $ENV{TOP};
|
my $bldtop = $ENV{BLDTOP} || $ENV{TOP};
|
||||||
my $recipesdir = catdir($srctop, "test", "recipes");
|
my $recipesdir = catdir($srctop, "test", "recipes");
|
||||||
my $testlib = catdir($srctop, "test", "testlib");
|
my $libdir = rel2abs(catdir($srctop, "util", "perl"));
|
||||||
my $utillib = catdir($srctop, "util");
|
|
||||||
|
|
||||||
my %tapargs =
|
my %tapargs =
|
||||||
( verbosity => $ENV{VERBOSE} || $ENV{V} || $ENV{HARNESS_VERBOSE} ? 1 : 0,
|
( verbosity => $ENV{VERBOSE} || $ENV{V} || $ENV{HARNESS_VERBOSE} ? 1 : 0,
|
||||||
lib => [ $testlib, $utillib ],
|
lib => [ $libdir ],
|
||||||
switches => '-w',
|
switches => '-w',
|
||||||
merge => 1
|
merge => 1
|
||||||
);
|
);
|
||||||
|
|
|
@ -14,6 +14,7 @@
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
|
use FindBin;
|
||||||
use Getopt::Std;
|
use Getopt::Std;
|
||||||
|
|
||||||
# We actually expect to get the following hash tables from configdata:
|
# We actually expect to get the following hash tables from configdata:
|
||||||
|
@ -38,7 +39,7 @@ package OpenSSL::Template;
|
||||||
# a fallback in case it's not installed on the system
|
# a fallback in case it's not installed on the system
|
||||||
use File::Basename;
|
use File::Basename;
|
||||||
use File::Spec::Functions;
|
use File::Spec::Functions;
|
||||||
use lib catdir(dirname(__FILE__));
|
use lib "$FindBin::Bin/perl";
|
||||||
use with_fallback qw(Text::Template);
|
use with_fallback qw(Text::Template);
|
||||||
|
|
||||||
#use parent qw/Text::Template/;
|
#use parent qw/Text::Template/;
|
||||||
|
@ -175,7 +176,10 @@ my $text =
|
||||||
# Load the full template (combination of files) into Text::Template
|
# Load the full template (combination of files) into Text::Template
|
||||||
# and fill it up with our data. Output goes directly to STDOUT
|
# and fill it up with our data. Output goes directly to STDOUT
|
||||||
|
|
||||||
my $template = OpenSSL::Template->new(TYPE => 'STRING', SOURCE => $text );
|
my $template =
|
||||||
|
OpenSSL::Template->new(TYPE => 'STRING',
|
||||||
|
SOURCE => $text,
|
||||||
|
PREPEND => qq{use lib "$FindBin::Bin/perl";});
|
||||||
|
|
||||||
sub output_reset_on {
|
sub output_reset_on {
|
||||||
$template->output_reset_on();
|
$template->output_reset_on();
|
||||||
|
|
|
@ -13,7 +13,8 @@ sub import {
|
||||||
foreach (@_) {
|
foreach (@_) {
|
||||||
eval "require $_";
|
eval "require $_";
|
||||||
if ($@) {
|
if ($@) {
|
||||||
unshift @INC, catdir(dirname(__FILE__), "..", "external", "perl");
|
unshift @INC, catdir(dirname(__FILE__),
|
||||||
|
"..", "..", "external", "perl");
|
||||||
my $transfer = "transfer::$_";
|
my $transfer = "transfer::$_";
|
||||||
eval "require $transfer";
|
eval "require $transfer";
|
||||||
shift @INC;
|
shift @INC;
|
Loading…
Reference in New Issue