This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [ID 20010920.007] q and qq does not work after do
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 21 Sep 2001 09:16:37 +0000 (09:16 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 21 Sep 2001 12:16:27 +0000 (12:16 +0000)
Message-Id: <slrn9qm1ca.h6b.rgarciasuarez@rafael.kazibao.net>

p4raw-id: //depot/perl@12108

toke.c

diff --git a/toke.c b/toke.c
index 331a71b..af117bc 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -4209,7 +4209,7 @@ Perl_yylex(pTHX)
            if (*s == '{')
                PRETERMBLOCK(DO);
            if (*s != '\'')
-               s = force_word(s,WORD,FALSE,TRUE,FALSE);
+               s = force_word(s,WORD,TRUE,TRUE,FALSE);
            OPERATOR(DO);
 
        case KEY_die: