diff options
author | Richard Levitte <levitte@openssl.org> | 2018-07-09 21:07:25 +0200 |
---|---|---|
committer | Richard Levitte <levitte@openssl.org> | 2018-07-10 16:32:20 +0200 |
commit | e9bc5706744213a1a6748dbbcd1b43a6ad4ca09e (patch) | |
tree | 97f9ef53144a7bce7a358a510d8b53d9064da0ec | |
parent | 3550d9159f0c89b2ae1c01e81e31649d1b357d06 (diff) |
Make 'with_fallback' use 'use' instead of 'require'
This enables us to require module versions, and to fall back to a
bundled version if the system version is too low.
Reviewed-by: Rich Salz <rsalz@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/6682)
-rw-r--r-- | util/perl/with_fallback.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/util/perl/with_fallback.pm b/util/perl/with_fallback.pm index 2af1d5fbd5..fc5638ddf0 100644 --- a/util/perl/with_fallback.pm +++ b/util/perl/with_fallback.pm @@ -8,15 +8,17 @@ package with_fallback; sub import { + shift; + use File::Basename; use File::Spec::Functions; foreach (@_) { - eval "require $_"; + eval "use $_"; if ($@) { unshift @INC, catdir(dirname(__FILE__), "..", "..", "external", "perl"); my $transfer = "transfer::$_"; - eval "require $transfer"; + eval "use $transfer"; shift @INC; warn $@ if $@; } |