diff options
author | Vladimir Glazounov <vg@openoffice.org> | 2005-02-21 11:12:49 +0000 |
---|---|---|
committer | Vladimir Glazounov <vg@openoffice.org> | 2005-02-21 11:12:49 +0000 |
commit | a25f1e44dd402aab37e4e85a6c006268a80e5bdc (patch) | |
tree | d95382c52ff6aa53aecd4182f7d40548fc0bc15b /solenv/bin/modules/pre2par/files.pm | |
parent | 5c6ff4372f1b19b04178ce6769c1e6f7672c8ddc (diff) |
INTEGRATION: CWS ause022 (1.3.34); FILE MERGED
2005/02/16 16:18:31 hjs 1.3.34.1: #i42566#, #i42554# fix rebuild problems
Diffstat (limited to 'solenv/bin/modules/pre2par/files.pm')
-rw-r--r-- | solenv/bin/modules/pre2par/files.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/solenv/bin/modules/pre2par/files.pm b/solenv/bin/modules/pre2par/files.pm index 7edad40e26d7..f576c5cdff7c 100644 --- a/solenv/bin/modules/pre2par/files.pm +++ b/solenv/bin/modules/pre2par/files.pm @@ -2,9 +2,9 @@ # # $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 # either of the following licenses @@ -96,6 +96,8 @@ sub read_file sub save_file { 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" ); print OUT @{$savecontent}; close( OUT); |