From 09aea7b646201da2c5ea6744798453b0ad770e2d Mon Sep 17 00:00:00 2001 From: "Alexander S.Kresin" Date: Tue, 6 May 2003 09:53:37 +0000 Subject: [PATCH] 2003-05-06 12:55 UTC+0200 Przemyslaw Czerpak --- harbour/ChangeLog | 6 ++++++ harbour/source/rtl/set.c | 4 ++++ 2 files changed, 10 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index d6f8150e88..0492b77467 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,12 @@ 2002-12-01 23:12 UTC+0100 Foo Bar */ +2003-05-06 12:55 UTC+0200 Przemyslaw Czerpak + * source/rtl/set.c + ! Fixed very serious bug in set(_SET_ALTFILE, "") and + set(_SET_EXTRAFILE, "") which can caused corrupting any files + open by Harbour compiled program + 2003-05-06 12:45 UTC+0300 Alexander Kresin * contrib/rdd_ads/ads1.c ! Bug fixed in adsOrderListClear() - the current order is set to 0 now diff --git a/harbour/source/rtl/set.c b/harbour/source/rtl/set.c index 4e06d19d00..9a3b310800 100644 --- a/harbour/source/rtl/set.c +++ b/harbour/source/rtl/set.c @@ -463,6 +463,8 @@ HB_FUNC( SET ) close_text( hb_set.hb_set_althan ); if( hb_set.HB_SET_ALTFILE && strlen( hb_set.HB_SET_ALTFILE ) > 0 ) hb_set.hb_set_althan = open_handle( hb_set.HB_SET_ALTFILE, bFlag, ".txt", HB_SET_ALTFILE ); + else + hb_set.hb_set_althan = FS_ERROR; } break; case HB_SET_AUTOPEN : @@ -650,6 +652,8 @@ HB_FUNC( SET ) close_text( hb_set.hb_set_extrahan ); if( hb_set.HB_SET_EXTRAFILE && strlen( hb_set.HB_SET_EXTRAFILE ) > 0 ) hb_set.hb_set_extrahan = open_handle( hb_set.HB_SET_EXTRAFILE, bFlag, ".prn", HB_SET_EXTRAFILE ); + else + hb_set.hb_set_extrahan = FS_ERROR; } break; case HB_SET_FIXED :