1: 2eval 'exec perl -wS $0 ${1+"$@"}' 3 if 0; 4#************************************************************************* 5# 6# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 7# 8# Copyright 2000, 2010 Oracle and/or its affiliates. 9# 10# OpenOffice.org - a multi-platform office productivity suite 11# 12# This file is part of OpenOffice.org. 13# 14# OpenOffice.org is free software: you can redistribute it and/or modify 15# it under the terms of the GNU Lesser General Public License version 3 16# only, as published by the Free Software Foundation. 17# 18# OpenOffice.org is distributed in the hope that it will be useful, 19# but WITHOUT ANY WARRANTY; without even the implied warranty of 20# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 21# GNU Lesser General Public License version 3 for more details 22# (a copy is included in the LICENSE file that accompanied this code). 23# 24# You should have received a copy of the GNU Lesser General Public License 25# version 3 along with OpenOffice.org. If not, see 26# <http://www.openoffice.org/license.html> 27# for a copy of the LGPLv3 License. 28# 29#************************************************************************* 30 31$ENV{'LC_MESSAGES'} = 'C'; 32 33$Dest = pop(@ARGV) || die "No destination to copy to"; 34 35$cc = $ENV{'CC'} || die "No CC environment set"; 36 37if ($Dest =~ /--help/ || @ARGV < 1) { 38 print "Syntax:\n gcc-instlib <library-in-libpath ...> <destination-dir>\n"; 39 exit (0); 40} 41 42%SrcAndDest = (); 43 44foreach $File (@ARGV) { 45 my $string; 46 my $normalized_file = $File; 47 $normalized_file =~ s/\.so\.\d+/.so/; 48 open (GCCOut, "LANGUAGE=C LC_ALL=C $cc -print-file-name=$normalized_file|") || die "Failed to exec $cc -print-file-name=$normalized_file $!"; 49 $string=<GCCOut>; 50 chomp ($string); 51 $SrcAndDest{$string} = "$Dest/$File"; 52 close (GCCOut); 53} 54 55while (($Src, $FullDest) = each %SrcAndDest) { 56 printf "copy $Src to $FullDest\n"; 57 system ("/bin/cp $Src $FullDest") && die "copy failed: $!"; 58} 59 60 61foreach $File (@ARGV) { 62 #https://bugzilla.redhat.com/show_bug.cgi?id=149465 63 printf "unprelinking $Dest/$File\n"; 64 #If it's already unprelinked .i.e. no .gnu.prelink_undo section, that's fine 65 #If prelink is not installed, it's massively unlikely that it's prelinked 66 system ("prelink -u $Dest/$File > /dev/null 2>&1"); 67} 68 69exit (0); 70