*** empty log message ***
This commit is contained in:
@@ -1,8 +1,6 @@
|
||||
19990925-00:20 EDT Paul Tucker <ptucker@sympatico.ca>
|
||||
* source/rtl/adir.prg
|
||||
+ Added an #ifdef HARBOUR_STRICT_CLIPPER_COMPATIBILITY around the
|
||||
directory call. The Clipper behaviour is strictly a bug and there
|
||||
is no need to duplicate it.
|
||||
made a change - then reversed it.
|
||||
* source/rtl/asort.prg
|
||||
* The initial test to determine if the codeblock is going to return
|
||||
a logical was passing a numeric as a test - and the codeblock may
|
||||
|
||||
@@ -60,15 +60,11 @@ FUNCTION aDir( cFileMask, aName, aSize, aDate, aTime, aAttr )
|
||||
|
||||
// ;
|
||||
|
||||
#ifdef HARBOUR_STRICT_CLIPPER_COMPATIBILITY
|
||||
IF ISARRAY( aAttr )
|
||||
aDir := Directory( cFileMask, "HSD" )
|
||||
ELSE
|
||||
aDir := Directory( cFileMask )
|
||||
ENDIF
|
||||
#else
|
||||
aDir := Directory( cFileMask, "HSD" )
|
||||
#endif
|
||||
|
||||
IF ISARRAY( aName )
|
||||
nNameLen := Len( aName )
|
||||
|
||||
Reference in New Issue
Block a user