INTEGRATION: CWS nativesmoker (1.2.50); FILE MERGED

2004/06/30 17:34:17 is 1.2.50.1: #i30826# removing content of output tree
Issue number:
Submitted by:
Reviewed by:
This commit is contained in:
Rüdiger Timm 2004-07-06 14:00:03 +00:00
parent 98b6ea1360
commit ec612eea81

View file

@ -2,9 +2,9 @@
#
# $RCSfile: strip.pm,v $
#
# $Revision: 1.2 $
# $Revision: 1.3 $
#
# last change: $Author: svesik $ $Date: 2004-04-20 12:30:42 $
# last change: $Author: rt $ $Date: 2004-07-06 15:00:03 $
#
# The Contents of this file are made available subject to the terms of
# either of the following licenses
@ -63,6 +63,7 @@
package installer::strip;
use installer::converter;
use installer::existence;
use installer::globals;
use installer::logger;
use installer::pathanalyzer;
@ -126,8 +127,12 @@ sub strip_libraries
installer::logger::include_header_into_logfile("Stripping files:");
my $strippeddirbase = installer::systemactions::create_directories("stripped", "");
$strippeddirbase = installer::converter::make_path_conform($strippeddirbase);
my $strippeddirbase = installer::systemactions::create_directories("stripped", $languagestringref);
if (! installer::existence::exists_in_array($strippeddirbase, \@installer::globals::removedirs))
{
push(@installer::globals::removedirs, $strippeddirbase);
}
for ( my $i = 0; $i <= $#{$filelist}; $i++ )
{