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} 41foreach $File (@ARGV) { 42 my $string; 43 44 open (GCCOut, "LANGUAGE=C LC_ALL=C $cc -print-file-name=$File|") || die "Failed to exec $cc -print-file-name=$File $!"; 45 $string=<GCCOut>; 46 chomp ($string); 47 push (@CopySrc, $string); 48 close (GCCOut); 49} 50 51foreach $Src (@CopySrc) { 52 printf "copy $Src to $Dest\n"; 53 system ("/bin/cp $Src $Dest") && die "copy failed: $!"; 54} 55 56 57foreach $File (@ARGV) { 58 #https://bugzilla.redhat.com/show_bug.cgi?id=149465 59 printf "unprelinking $Dest/$File\n"; 60 #If it's already unprelinked .i.e. no .gnu.prelink_undo section, that's fine 61 #If prelink is not installed, it's massively unlikely that it's prelinked 62 system ("prelink -u $Dest/$File > /dev/null 2>&1"); 63} 64 65exit (0); 66