Fix for diskspace() hang

2000-03-25 10:00:26 +00:00
parent b4e32a66ed
commit 997e91b66f
2 changed files with 6 additions and 2 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,6 @@
+20000325-04:58 EST Paul Tucker <ptucker@sympatico.ca>
+   * source/rtl/diskspac.c
+     * un-opted the small opt. (fixed hang)

 20000325-05:30 GMT -3 Luiz Rafael Culik <culik@sl.conex.net>
    Missed from previos session
--- a/harbour/source/rtl/diskspac.c
+++ b/harbour/source/rtl/diskspac.c
@@ -264,9 +264,10 @@ HB_FUNC( DISKSPACE )
                  with EF_CANDEFAULT above)
         */

-         if( uiAction != E_RETRY )
-            break;
+         if( uiAction == E_RETRY )
+            continue;
      }
+      break;
   }

 #else