fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-04-09 11:13 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* contrib/hbformat/hbfmtcls.prg
    ! use HB_FCOPY() instead of FRENAME() to create backup.
      this makes it work when .bak already exists.
This commit is contained in:
Viktor Szakats
2012-04-09 09:14:22 +00:00
parent 85f6e67dda
commit 9b76780bd8
2 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -16,6 +16,11 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-04-09 11:13 UTC+0200 Viktor Szakats (harbour syenar.net)
* contrib/hbformat/hbfmtcls.prg
! use HB_FCOPY() instead of FRENAME() to create backup.
this makes it work when .bak already exists.
2012-04-09 00:07 UTC+0200 Viktor Szakats (harbour syenar.net)
* bin/hb3rdpat.hbs
* formatting

2
harbour/contrib/hbformat/hbfmtcls.prg
View File

@@ -804,7 +804,7 @@ METHOD Array2File( cFileName, aFile ) CLASS HBFORMATCODE
cName := iif( ( i := RAt( ".", cFileName ) ) == 0, cFileName, SubStr( cFileName, 1, i - 1 ) )
IF Empty( ::cExtSave )
cBakName := cName + iif( Left( ::cExtBack, 1 ) != ".", ".", "" ) + ::cExtBack
IF FRename( cFileName, cBakName ) == F_ERROR
IF hb_FCopy( cFileName, cBakName ) == F_ERROR
RETURN .F.
ENDIF
ENDIF