strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

INTEGRATION: CWS networker3 (1.2.2); FILE MERGED

Browse source 
2004/05/27 13:22:17 is 1.2.2.1: #i25326# native installer
Issue number:
Submitted by:
Reviewed by:
This commit is contained in:
Kurt Zenker 2004-06-11 17:16:59 +00:00
parent 23bd293137
commit 0b99bc372a
1 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
solenv/bin/modules/installer/scpzipfiles.pm
View file

@ -2,9 +2,9 @@
#
# $RCSfile: scpzipfiles.pm,v $
#
# $Revision: 1.2 $
# $Revision: 1.3 $
#
# last change: $Author: svesik $ $Date: 2004-04-20 12:29:33 $
# last change: $Author: kz $ $Date: 2004-06-11 18:16:59 $
#
# The Contents of this file are made available subject to the terms of
# either of the following licenses
@ -147,20 +147,20 @@ sub resolving_scpzip_replace_flag
my $destinationpath = $replacedir . $onefilename;
my $movepath = $destinationpath . ".orig";
if (!(-f $movepath)) # do nothing if the file already exists
# if (!(-f $movepath)) # do nothing if the file already exists
# {
my $copysuccess = installer::systemactions::copy_one_file($sourcepath, $movepath);
if ( $copysuccess )
{
my $copysuccess = installer::systemactions::copy_one_file($sourcepath, $movepath);
# Now the file can be edited
# ToDo: How about binary patching?
if ( $copysuccess )
{
# Now the file can be edited
# ToDo: How about binary patching?
my $onefileref = installer::files::read_file($movepath);
replace_all_ziplistvariables_in_file($onefileref, $variablesref);
installer::files::save_file($destinationpath ,$onefileref);
}
my $onefileref = installer::files::read_file($movepath);
replace_all_ziplistvariables_in_file($onefileref, $variablesref);
installer::files::save_file($destinationpath ,$onefileref);
}
# }
# Writing the new sourcepath into the hashref, even if it was no copied