# Copyright 2016-2018 The OpenSSL Project Authors. All Rights Reserved.

#

# Licensed under the OpenSSL license (the "License").  You may not use

# this file except in compliance with the License.  You can obtain a copy

# in the file LICENSE in the source distribution or at

# https://www.openssl.org/source/license.html

package with_fallback;

sub import {

    shift;

    use File::Basename;

    use File::Spec::Functions;

    foreach (@_) {

	eval "use $_";

	if ($@) {

	    unshift @INC, catdir(dirname(__FILE__),

                                 "..", "..", "external", "perl");

	    my $transfer = "transfer::$_";

	    eval "use $transfer";

	    shift @INC;

	    warn $@ if $@;

	}

    }

}

1;