Fixed issue #1 and another bug exposed by new test(s)

Author: genius257

StringRegExpSplit.au3

@@ -6,6 +6,10 @@ Global Enum Step *2 $PREG_SPLIT_NONE = 0, $PREG_SPLIT_NO_EMPTY = 1, $PREG_SPLIT_
 
 Func StringRegExpSplit($sString, $sPattern, $iLimit = 0, $iFlags = $PREG_SPLIT_NONE)
     Local $iPrevOffset = 1, $iOffset = 1, $aMatches, $aReturn[0], $i, $sValue, $iCount = 0
+    If BitAND($PREG_SPLIT_DELIM_CAPTURE, $iFlags) And $iLimit > 0 And $iLimit < 2 Then
+        Local $aReturn[1] = [$sString]
+        Return $aReturn
+    EndIf
     While 1
         If $iLimit > 0 And $iCount >= $iLimit Then ExitLoop
         $aMatches = StringRegExp($sString, $sPattern, 2, $iOffset)
@@ -28,7 +32,7 @@ Func StringRegExpSplit($sString, $sPattern, $iLimit = 0, $iFlags = $PREG_SPLIT_N
             Next
         EndIf
         $iPrevOffset = $iOffset
-        $iCount += 1
+        $iCount += BitAND($PREG_SPLIT_DELIM_CAPTURE, $iFlags) ? 2 : 1 
         If StringLen($aMatches[0]) = 0 Then $iOffset += 1
     WEnd