candidate solution for #9701 -- use chrpath glite-lb_branch_1_2_0_3_ltfix
authorAleš Křenek <ljocha@ics.muni.cz>
Thu, 22 Sep 2005 15:32:28 +0000 (15:32 +0000)
committerAleš Křenek <ljocha@ics.muni.cz>
Thu, 22 Sep 2005 15:32:28 +0000 (15:32 +0000)
org.glite.lb/project/libtool-paths-split.pl [deleted file]

diff --git a/org.glite.lb/project/libtool-paths-split.pl b/org.glite.lb/project/libtool-paths-split.pl
deleted file mode 100644 (file)
index 5dce72f..0000000
+++ /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;
-$_ .= "'";