[Libreoffice] [PATCH] bootstrap/set_soenv: remove unused variables

[Sebastian Spaeth]

The variables $unsetenv, $setenv, $unset, $set $D, $answer were unused
in this script and have been removed.

Signed-off-by: Sebastian Spaeth <Sebastian at SSpaeth.de>
---
 set_soenv.in |   11 ++---------
 1 files changed, 2 insertions(+), 9 deletions(-)

diff --git a/set_soenv.in b/set_soenv.in
index 7f55e47..b4b1616 100644
--- a/set_soenv.in
+++ b/set_soenv.in
@@ -1,8 +1,6 @@
 #!@PERL@ -w
 #
 # Program:     set_soenv.in
-# Version:     $Revision: 1.201 $
-# Date:        $Date: 2008-09-05 14:14:29 $
 # Author:      Willem van Dorp, Ross Nicholson, Oisin Boydell - Sun Microsystems, Ireland.
 #
 #---------------------------------------------------------------------------
@@ -39,8 +37,8 @@ use File::Basename;
 #--------------------------------------------------------
 #
 my ( $outfile, $bootfile, $newline, $comment,
-     $compiler, $unsetenv, $setenv, $unset, $set, $ds, $ps,
-     $wps, $cur_dir, $par_dir, $I, $L, $D, $buildenv, $answer, $tmp, $MINGW,
+     $compiler, $ds, $ps,
+     $wps, $cur_dir, $par_dir, $I, $L, $tmp, $MINGW,
      $USE_MINGW, $platform,
      $cygwinver, $empty, $no_ant, $no_stl, $no_gcc_include,
      $no_gxx_include, $warnfile, $Warning, $result, $unsetvars, $exportvars, $win_format_var, $perl_os, @mingw_lib_include_paths, $mingw_lib_include_path);
@@ -110,10 +108,6 @@ chomp( $platform );
 
 $UPD            = '@UPD@';          # the project's UPD
 $newline        = "\n";             # Perl newline character
-$unsetenv       = "unsetenv";       # c-shell command
-$setenv         = "setenv";         # c-shell command
-$unset          = "unset";          # msdos batch file command
-$set            = "set";            # msdos batch file command
 $ds             = "/";              # directory separator
 $ps             = ":";              # path separator
 $wps            = ":";              # path separator, will be set to ';' for windows later.
@@ -121,7 +115,6 @@ $cur_dir        = ".";              # current directory
 $par_dir        = "..";             # parrent directory
 $I              = " -I";            # include search path
 $L              = " -L";            # library search path
-$D              = " -D";            # define search path
 $empty          = "";               # used as argument
 $no_stl         = "NO_STLPORT4";    # possible argument
 $warnfile       = "warn";           # logfile configure warnings.
-- 
1.7.1

-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 197 bytes
Desc: not available
URL: <http://lists.freedesktop.org/archives/libreoffice/attachments/20101102/902272c1/attachment.pgp>