Commit e9bc5706 authored by Richard Levitte's avatar Richard Levitte
Browse files

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: default avatarRich Salz <rsalz@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/6682)
parent 3550d915

util/perl/with_fallback.pm

+4 −2
Original line number Diff line number Diff line
@@ -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 $@;

	}