diff options
Diffstat (limited to 'openssl-1.1.0h/util/perl/with_fallback.pm')
-rw-r--r-- | openssl-1.1.0h/util/perl/with_fallback.pm | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/openssl-1.1.0h/util/perl/with_fallback.pm b/openssl-1.1.0h/util/perl/with_fallback.pm new file mode 100644 index 0000000..2af1d5f --- /dev/null +++ b/openssl-1.1.0h/util/perl/with_fallback.pm @@ -0,0 +1,25 @@ +# Copyright 2016 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 { + use File::Basename; + use File::Spec::Functions; + foreach (@_) { + eval "require $_"; + if ($@) { + unshift @INC, catdir(dirname(__FILE__), + "..", "..", "external", "perl"); + my $transfer = "transfer::$_"; + eval "require $transfer"; + shift @INC; + warn $@ if $@; + } + } +} +1; |