7 Getopt::Long::Configure ("bundling");
8 GetOptions("I|include=s" => \@include_dirs) or exit(1);
9 @include_dirs = ('.') if !@include_dirs;
10 OUTER: while (<STDIN>) {
11 if (my ($name) = /^\.so (\S+)$/) {
12 foreach my $dir (@include_dirs, '.') {
13 if (open(INNER, "$dir/$name")) {
21 print STDERR "$name not found in: ", join(' ', @include_dirs), "\n";