From f9dbe711f344be6765b22804b0ffb372dfa9a5a8 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Mon, 14 Feb 2011 16:20:26 +0000 Subject: [PATCH] 2011-02-14 17:19 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * src/rtl/hbfilehi.prg ! Silly cut&paste typo causing major problem in some cases in HB_PATHNORMALIZE(). (in 2011-02-11 12:04 UTC+0100 Viktor Szakats) Thanks Teo for reporting the darwin/gcc problem it caused. --- harbour/ChangeLog | 6 ++++++ harbour/src/rtl/hbfilehi.prg | 1 - 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index da26976671..1d88dc9b58 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,12 @@ The license applies to all entries newer than 2009-04-28. */ +2011-02-14 17:19 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) + * src/rtl/hbfilehi.prg + ! Silly cut&paste typo causing major problem in some cases + in HB_PATHNORMALIZE(). (in 2011-02-11 12:04 UTC+0100 Viktor Szakats) + Thanks Teo for reporting the darwin/gcc problem it caused. + 2011-02-14 16:27 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * contrib/hbtip/utils.c * contrib/hbtip/hbtip.hbx diff --git a/harbour/src/rtl/hbfilehi.prg b/harbour/src/rtl/hbfilehi.prg index c6d9c589b0..e0d4377e4e 100644 --- a/harbour/src/rtl/hbfilehi.prg +++ b/harbour/src/rtl/hbfilehi.prg @@ -79,7 +79,6 @@ FUNCTION hb_PathNormalize( cPath ) ( 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 )