Permalink
Browse files

remove autodynaload

  • Loading branch information...
1 parent 63f2fb8 commit 1f5867742b1d281c756067158dda7674dc4b4cfb @jberger jberger committed Mar 2, 2012
Showing with 9 additions and 8 deletions.
  1. +9 −8 lib/Alien/Base.pm
View
17 lib/Alien/Base.pm
@@ -11,7 +11,7 @@ use Scalar::Util qw/blessed/;
use List::MoreUtils qw/part/;
require DynaLoader;
-use autodynaload;
+#use autodynaload;
our $VERSION = 0.01;
$VERSION = eval $VERSION;
@@ -25,15 +25,16 @@ sub import {
my $dist_dir = $class->_find_dist_dir;
my ($l, $L) = part { /^-L/ } split /\s+/, $class->libs;
- my %libs =
- map {
- ( my $lib = $_ ) =~ s/^-l//;
- ( $lib, DynaLoader::dl_findfile( @$L, $_ ) );
- }
- @$l;
+ #my %libs =
+ # map {
+ # ( my $lib = $_ ) =~ s/^-l//;
+ # ( $lib, DynaLoader::dl_findfile( @$L, $_ ) );
+ # }
+ # @$l;
- autodynaload->new( sub { $libs{$_[1]} } )->insert;
+ #autodynaload->new( sub { $libs{$_[1]} } )->insert(0);
+ #$ENV{'LD_LIBRARY_PATH'} = join (':', map { my $in = $_; $in=~s/^-L//; $in } @$L);
}
sub _find_dist_dir {

0 comments on commit 1f58677

Please sign in to comment.