diff options
author | Fridrich Štrba <fridrich.strba@bluewin.ch> | 2013-02-19 11:31:17 +0100 |
---|---|---|
committer | Fridrich Štrba <fridrich.strba@bluewin.ch> | 2013-02-19 11:31:17 +0100 |
commit | 8ff09509d725ce18814d5d77794f227d0c72037b (patch) | |
tree | 93ce505398ac3c9869266a302ffe58628a4bf11b /solenv/bin | |
parent | 0c3d3d58c9a88a682dcb673f8727390a602fec55 (diff) |
No need to copy the gcc libraries anymore
Change-Id: I6dbf44bb78f14ab71a48a9cd4e9ebba60bfc97d2
Diffstat (limited to 'solenv/bin')
-rwxr-xr-x | solenv/bin/gccinstlib.pl | 78 |
1 files changed, 0 insertions, 78 deletions
diff --git a/solenv/bin/gccinstlib.pl b/solenv/bin/gccinstlib.pl deleted file mode 100755 index 2deb4d438e08..000000000000 --- a/solenv/bin/gccinstlib.pl +++ /dev/null @@ -1,78 +0,0 @@ -: -eval 'exec perl -wS $0 ${1+"$@"}' - if 0; -#************************************************************************* -# -# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -# -# Copyright 2000, 2010 Oracle and/or its affiliates. -# -# OpenOffice.org - a multi-platform office productivity suite -# -# This file is part of OpenOffice.org. -# -# OpenOffice.org is free software: you can redistribute it and/or modify -# it under the terms of the GNU Lesser General Public License version 3 -# only, as published by the Free Software Foundation. -# -# OpenOffice.org is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU Lesser General Public License version 3 for more details -# (a copy is included in the LICENSE file that accompanied this code). -# -# You should have received a copy of the GNU Lesser General Public License -# version 3 along with OpenOffice.org. If not, see -# <http://www.openoffice.org/license.html> -# for a copy of the LGPLv3 License. -# -#************************************************************************* - -$ENV{'LC_MESSAGES'} = 'C'; - -$Dest = pop(@ARGV) || die "No destination to copy to"; - -$cc = $ENV{'CC'} || die "No CC environment set"; - -if ($Dest =~ /--help/ || @ARGV < 1) { - print "Syntax:\n gcc-instlib <library-in-libpath ...> <destination-dir>\n"; - exit (0); -} - -%SrcAndDest = (); - -foreach $File (@ARGV) { - my $string; - - my $NormFile = $File; - $NormFile =~ s/\.so\.\d+/.so/; - @search = ($File, $NormFile); - - foreach $entry (@search) { - open (GCCOut, "LANGUAGE=C LC_ALL=C $cc -print-file-name=$entry|") || - next; - $string=<GCCOut>; - chomp ($string); - close (GCCOut); - if (-e $string) { - $SrcAndDest{$string} = "$Dest/$File"; - last; - } - } -} - -while (($Src, $FullDest) = each %SrcAndDest) { - printf "copy $Src to $FullDest\n"; - system ("/bin/cp $Src $FullDest") && die "copy failed: $!"; -} - - -foreach $File (@ARGV) { - #https://bugzilla.redhat.com/show_bug.cgi?id=149465 - printf "unprelinking $Dest/$File\n"; - #If it's already unprelinked .i.e. no .gnu.prelink_undo section, that's fine - #If prelink is not installed, it's massively unlikely that it's prelinked - system ("prelink -u $Dest/$File > /dev/null 2>&1"); -} - -exit (0); |