diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2001-09-21 09:16:37 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-21 12:16:27 +0000 |
| commit | 89c5585f724b837f3c4ebb0eef5f5ebcbc46e461 (patch) | |
| tree | 8fcef3458ae916baa103d28452fbc2268e618d15 /toke.c | |
| parent | 389ec6350ec22b6ada1d6f5bbdbfe43d5338edc5 (diff) | |
| download | perl-89c5585f724b837f3c4ebb0eef5f5ebcbc46e461.tar.gz | |
Re: [ID 20010920.007] q and qq does not work after do
Message-Id: <slrn9qm1ca.h6b.rgarciasuarez@rafael.kazibao.net>
p4raw-id: //depot/perl@12108
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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: |