assert min identifier length in S_pending_ident()

1 files changed, 1 insertions, 0 deletions

diff --git a/toke.c b/toke.c
index 5aeec6fc65..a4150c2f05 100644
--- a/toke.c
+++ b/toke.c
@@ -8943,6 +8943,7 @@ S_pending_ident(pTHX)
 
     DEBUG_T({ PerlIO_printf(Perl_debug_log,
           "### Pending identifier '%s'\n", PL_tokenbuf); });
+    assert(tokenbuf_len >= 2);
 
     /* if we're in a my(), we can't allow dynamics here.
        $foo'bar has already been turned into $foo::bar, so