util/with_fallback.pm

   1 # Copyright 2016 The OpenSSL Project Authors. All Rights Reserved.
   2 #
   3 # Licensed under the OpenSSL license (the "License").  You may not use
   4 # this file except in compliance with the License.  You can obtain a copy
   5 # in the file LICENSE in the source distribution or at
   6 # https://www.openssl.org/source/license.html
   7
   8 package with_fallback;
   9
  10 sub import {
  11     use File::Basename;
  12     use File::Spec::Functions;
  13     foreach (@_) {
  14         eval "require $_";
  15         if ($@) {
  16             unshift @INC, catdir(dirname(__FILE__), "..", "external", "perl");
  17             my $transfer = "transfer::$_";
  18             eval "require $transfer";
  19             shift @INC;
  20             warn $@ if $@;
  21         }
  22     }
  23 }
  24 1;