From 8ef077c95ca3f8d4ac4c5f85d3bd7c8b7b6c4cca Mon Sep 17 00:00:00 2001 From: =?utf8?q?Ale=C5=A1=20K=C5=99enek?= Date: Thu, 22 Sep 2005 15:32:28 +0000 Subject: [PATCH] candidate solution for #9701 -- use chrpath --- org.glite.lb/project/libtool-paths-split.pl | 25 ------------------------- 1 file changed, 25 deletions(-) delete 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 deleted file mode 100644 index 5dce72f..0000000 --- a/org.glite.lb/project/libtool-paths-split.pl +++ /dev/null @@ -1,25 +0,0 @@ -#!/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