From f37feac3ad15f6c45a53bc45a5460659f3d61b74 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Ale=C5=A1=20K=C5=99enek?= Date: Wed, 21 Sep 2005 12:13:22 +0000 Subject: [PATCH] the first attempt to fix #9701 --- org.glite.lb/project/libtool-paths-split.pl | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 org.glite.lb/project/libtool-paths-split.pl diff --git a/org.glite.lb/project/libtool-paths-split.pl b/org.glite.lb/project/libtool-paths-split.pl new file mode 100644 index 0000000..5dce72f --- /dev/null +++ b/org.glite.lb/project/libtool-paths-split.pl @@ -0,0 +1,25 @@ +#!/usr/bin/perl -p -i + +next unless /^dependency_libs=/; + +s/^dependency_libs=//; +s/\s*'\s*//g; + +$out = ''; + +undef $libs; +undef %paths; + +for (split) { + if (/^-L(.*)/) { $paths{$1} = 'x'; } + elsif (/^-l(.*)/) { $libs .= " -l$1"; } + elsif (/^(.*)\/lib(.*)\.(la|so).*$/) { $paths{$1} = 'x'; $libs .= " -l$2" ; } +# XXX else { $out .= " $_"; } + else { print STDERR "$_: unknown\n"; } +} + +# $_ = "dependency_libs='$out'"; +$_ = "dependency_libs='"; +$_ .= '-L' . join ' -L',keys %paths if %paths; +$_ .= $libs if $libs; +$_ .= "'"; -- 1.8.2.3