014f3551564af92d4770f12d4122624582ae5555
[openssl.git] / util / with_fallback.pm
1 #! /usr/bin/perl
2
3 package with_fallback;
4
5 sub import {
6     use File::Basename;
7     use File::Spec::Functions;
8     foreach (@_) {
9         eval "require $_";
10         if ($@) {
11             unshift @INC, catdir(dirname(__FILE__), "..", "external", "perl");
12             my $transfer = "transfer::$_";
13             eval "require $transfer";
14             shift @INC;
15             warn $@ if $@;
16         }
17     }
18 }
19 1;