From a926c6b9943978af0630c2ab4f506a5c825feb11 Mon Sep 17 00:00:00 2001
From: Vladimir Glazounov <vg@openoffice.org>
Date: Thu, 10 Mar 2005 10:27:32 +0000
Subject: INTEGRATION: CWS pj22 (1.8.10); FILE MERGED 2005/03/06 15:14:34
 pjanik 1.8.10.1: #i43437#: Remove temporary file in all cases.

---
 transex3/scripts/localize.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'transex3')

diff --git a/transex3/scripts/localize.pl b/transex3/scripts/localize.pl
index 041e038ee1d4..db7d56dfce4d 100755
--- a/transex3/scripts/localize.pl
+++ b/transex3/scripts/localize.pl
@@ -6,9 +6,9 @@ eval 'exec perl -wS $0 ${1+"$@"}'
 #
 #   $RCSfile: localize.pl,v $
 #
-#   $Revision: 1.8 $
+#   $Revision: 1.9 $
 #
-#   last change: $Author: obo $ $Date: 2005-01-27 15:58:33 $
+#   last change: $Author: vg $ $Date: 2005-03-10 11:27:32 $
 #
 #   The Contents of this file are made available subject to the terms of
 #   either of the following licenses
@@ -287,13 +287,13 @@ sub writesdf{
                 close DESTFILE;
                 if( move( $localizeFile , $localizeFile.".backup" ) ){
                     if( copy( $tmpfile , $localizeFile ) ){
-                        unlink $tmpfile;
                         unlink $localizeFile.".backup";
                     } else { print STDERR "Can't open/create '$localizeFile', original file is renamed to  $localizeFile.backup\n"; }
                 } else { print STDERR "Can't open/create '$localizeFile'\n"; }
             }else{
                 print STDERR "WARNING: Can't open/create '$localizeFile'\n";
             }
+            unlink $tmpfile;
         }
     }
     if( $no_sort eq '' ){
-- 
cgit