From: Aleš Křenek <ljocha@ics.muni.cz>
Date: Thu, 22 Sep 2005 15:32:28 +0000 (+0000)
Subject: candidate solution for #9701 -- use chrpath
X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=8ef077c95ca3f8d4ac4c5f85d3bd7c8b7b6c4cca;p=jra1mw.git

candidate solution for #9701 -- use chrpath
---

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;
-$_ .= "'";