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

2011-02-11 12:04 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* src/rtl/hbfilehi.prg
    ! Fixed HB_PATHNORMALIZE() recent change to strip double pathseps.
      It was slashing ending pathsep too, which caused hbmk2 env detection
      to die and not find libs.
      NOTE: HB_PATHNORMALIZE() got very inefficient after this addition,
            so if I may chose to restore stable versions from hbmk2 code.
    ; There are at least two remaining bugs in recent changes.
This commit is contained in:
Viktor Szakats
2011-02-11 11:05:24 +00:00
parent af945f7b1f
commit a12d2503d0
2 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/ChangeLog
View File

@@ -16,6 +16,15 @@
The license applies to all entries newer than 2009-04-28.
*/
2011-02-11 12:04 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* src/rtl/hbfilehi.prg
! Fixed HB_PATHNORMALIZE() recent change to strip double pathseps.
It was slashing ending pathsep too, which caused hbmk2 env detection
to die and not find libs.
NOTE: HB_PATHNORMALIZE() got very inefficient after this addition,
so if I may chose to restore stable versions from hbmk2 code.
; There are at least two remaining bugs in recent changes.
2011-02-11 07:48 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* utils/hbmk2/hbmk2.prg
! Readded REQUEST HB_FSETATTR. It was used in conditional

2
harbour/src/rtl/hbfilehi.prg
View File

@@ -75,9 +75,11 @@ FUNCTION hb_PathNormalize( cPath )
FOR EACH cDir IN aDir DESCEND
IF cDir == "." .OR. ;
( Empty( cDir ) .AND. ;
cDir:__enumIndex() < Len( cDir:__enumBase() ) .AND. ;
( cDir:__enumIndex() > 2 .OR. ;
( cDir:__enumIndex() == 2 .AND. ! Empty( aDir[ 1 ] ) ) ) )
hb_ADel( aDir, cDir:__enumIndex(), .T. )
hb_ADel( aDir, cDir:__enumIndex(), .T. )
ELSEIF !( cDir == ".." ) .AND. ;
! Empty( cDir ) .AND. ;
! _ISDRIVESPEC( cDir )