Bug fixed: undesired behavior of the Copy method of CSVArrayList wh…

…en the given end index exceeded the current amount of data in the instance.
ws-garcia · Feb 8, 2023 · 998c1f0 · 998c1f0
1 parent 186b020
commit 998c1f0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/CSVArrayList.cls b/src/CSVArrayList.cls
@@ -978,15 +978,15 @@ Attribute Copy.VB_Description = "Returns a copy of the current instance."
 
     Set Copy = New CSVArrayList
     If Not P_INDEXING Then
-        If endIndex = -1 Then
+        If endIndex = -1 Or endIndex > CurrentIndex Then
             endIndex = CurrentIndex
         End If
         Copy.Reinitialize endIndex - startIndex + 1
         For c = startIndex To endIndex
             Copy.Add Buffer(c)
         Next c
     Else
-        If endIndex = -1 Then
+        If endIndex = -1 Or endIndex > IndexedCurrentIndex Then
             endIndex = IndexedCurrentIndex
         End If
         Copy.Reinitialize endIndex - startIndex + 1