projects
/
oweals
/
openssl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Refactor file writing - arrange for use of bundled Perl modules as fallback
[oweals/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;