diff options
author | Rüdiger Timm <rt@openoffice.org> | 2004-09-20 07:35:20 +0000 |
---|---|---|
committer | Rüdiger Timm <rt@openoffice.org> | 2004-09-20 07:35:20 +0000 |
commit | 1b3ac68c85f869278d81ed6ab9f054294998cfa8 (patch) | |
tree | f148abb73e25443f155f0961b1e01ac0c1bdd900 /solenv/bin/gccinstlib.pl | |
parent | ceb5deeb6849e814386662e584149a9ab58836ed (diff) |
INTEGRATION: CWS ause011 (1.4.84); FILE MERGED
2004/08/17 12:18:18 hjs 1.4.84.1: #i33100# avoid translated gcc messages to parse
Diffstat (limited to 'solenv/bin/gccinstlib.pl')
-rw-r--r-- | solenv/bin/gccinstlib.pl | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/solenv/bin/gccinstlib.pl b/solenv/bin/gccinstlib.pl index 70afbd75a094..73eb2cb24f4d 100644 --- a/solenv/bin/gccinstlib.pl +++ b/solenv/bin/gccinstlib.pl @@ -5,9 +5,9 @@ eval 'exec perl -wS $0 ${1+"$@"}' # # $RCSfile: gccinstlib.pl,v $ # -# $Revision: 1.4 $ +# $Revision: 1.5 $ # -# last change: $Author: hr $ $Date: 2004-04-08 15:09:22 $ +# last change: $Author: rt $ $Date: 2004-09-20 08:35:20 $ # # The Contents of this file are made available subject to the terms of # either of the following licenses @@ -74,8 +74,7 @@ $LibPaths = $SearchDirs{'libraries'} || die 'None or invalid output from \"gcc - $Dest = pop(@ARGV) || die "No destination to copy to"; if ($Dest =~ /--help/ || @ARGV < 1) { - printf ("Syntax:\n gcc-instlib <library-in-libpath ...> - <destination-dir>\n"); + print "Syntax:\n gcc-instlib <library-in-libpath ...> <destination-dir>\n"; exit (0); } foreach $File (@ARGV) { @@ -105,7 +104,7 @@ sub GetGccSearchDirs { $cc = $ENV{'CC'} || die "No CC environment set"; - open (GCCOut, "$cc -print-search-dirs|") || die "Failed to exec $cc -print-search-dirs: $!"; + open (GCCOut, "LANGUAGE=C LC_ALL=C $cc -print-search-dirs|") || die "Failed to exec $cc -print-search-dirs: $!"; while (<GCCOut>) { if (/^([a-zA-Z]+): [=]{0,1}(.*)/) { |