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

INTEGRATION: CWS ause022 (1.3.34); FILE MERGED

Browse source 
2005/02/16 16:18:31 hjs 1.3.34.1: #i42566#, #i42554# fix rebuild problems
This commit is contained in:
Vladimir Glazounov 2005-02-21 11:12:49 +00:00
parent 5c6ff4372f
commit a25f1e44dd
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
solenv/bin/modules/pre2par/files.pm
View file

@ -2,9 +2,9 @@
# #
# $RCSfile: files.pm,v $ # $RCSfile: files.pm,v $
# #
# $Revision: 1.3 $ # $Revision: 1.4 $
# #
# last change: $Author: rt $ $Date: 2005-01-31 10:50:59 $ # last change: $Author: vg $ $Date: 2005-02-21 12:12:49 $
# #
# The Contents of this file are made available subject to the terms of # The Contents of this file are made available subject to the terms of
# either of the following licenses # either of the following licenses
@ -96,6 +96,8 @@ sub read_file
sub save_file sub save_file
{ {
my ($savefile, $savecontent) = @_; my ($savefile, $savecontent) = @_;
if (-f $savefile) { unlink $savefile };
if (-f $savefile) { pre2par::exiter::exit_program("ERROR: Cannot delete existing file: $savefile", "save_file"); };
open( OUT, ">$savefile" ); open( OUT, ">$savefile" );
print OUT @{$savecontent}; print OUT @{$savecontent};
close( OUT); close( OUT);