Permalink
Browse files

correctly find libraries with \.\d+ lying around

  • Loading branch information...
1 parent 4790327 commit 8d4a9bdcd348f5ed63fc410f3a1d08b5b0d0f7af @jberger jberger committed Oct 9, 2012
@@ -571,8 +571,14 @@ sub alien_find_lib_paths {
map { ( File::Spec->splitpath($_) )[1] } # get only directory
@so_files;
- @so_files =
- map { my $file = $_; $file =~ s/^(?:lib)?(.*?)\.$ext$/$1/; $file }
+ @so_files = uniq
+ map {
+ my $file = $_;
+ 1 while $file =~ s/\.\d+$//;
+ $file =~ s/^(?:lib)?(.*?)\.$ext$/$1/;
+ 1 while $file =~ s/\.\d+$//;
+ $file
+ }
map { ( File::Spec->splitpath($_) )[2] }
@so_files;
No changes.
No changes.

0 comments on commit 8d4a9bd

Please sign in to comment.