Missing an initialisation, as spotted by Merijn's HP compiler.

p4raw-id: //depot/perl@26767

diff --git a/toke.c b/toke.c
index d26c7ac..dd5b71e 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -4240,6 +4240,7 @@ Perl_yylex(pTHX)
            just_a_word_zero_gv:
                gv = NULL;
                gvp = NULL;
+               orig_keyword = 0;
            }
          just_a_word: {
                SV *sv;