INTEGRATION: CWS tkr10 (1.8.104); FILE MERGED

2008/05/19 09:26:45 tkr 1.8.104.2: RESYNC: (1.8-1.9); FILE MERGED
2008/03/18 12:42:39 tkr 1.8.104.1: #i87099# OOo crashed after basic kill command on ftp url

ucb/source/ucp/ftp/ftpinpstr.cxx

@@ -7,7 +7,7 @@
  * OpenOffice.org - a multi-platform office productivity suite
  *
  * $RCSfile: ftpinpstr.cxx,v $
- * $Revision: 1.9 $
+ * $Revision: 1.10 $
  *
  * This file is part of OpenOffice.org.
  *
@@ -67,7 +67,8 @@ FTPInputStream::FTPInputStream(FILE* tmpfl)
 
 FTPInputStream::~FTPInputStream()
 {
-    fclose(m_tmpfl);
+    if ( 0 != m_tmpfl)
+        fclose(m_tmpfl);
 }