1 files changed, 4 insertions, 0 deletions
diff --git a/regexec.c b/regexec.c
index 1aa6129423..95462e470c 100644
--- a/regexec.c
+++ b/regexec.c
@@ -6804,6 +6804,10 @@ S_reginclass(pTHX_ const regexp * const prog, register const regnode * const n,
 STATIC U8 *
 S_reghop3(U8 *s, I32 off, const U8* lim)
 {
+    /* return the position 'off' UTF-8 characters away from 's', forward if
+     * 'off' >= 0, backwards if negative.  But don't go outside of position
+     * 'lim', which better be < s  if off < 0 */
+
     dVAR;
 
     PERL_ARGS_ASSERT_REGHOP3;