diff options
| author | H.Merijn Brand <h.m.brand@xs4all.nl> | 2000-07-05 15:12:52 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-07-11 15:55:47 +0000 |
| commit | c197d1a90896f280084d6105c9e4f7747100a888 (patch) | |
| tree | 5b1cf74d3a3edad731a91366de22680b41ed0361 /toke.c | |
| parent | f805f8cce32dfd1ced3ebf12975766f50f88ec0c (diff) | |
| download | perl-c197d1a90896f280084d6105c9e4f7747100a888.tar.gz | |
Re: format bug report [Patch]
Date: Wed, 05 Jul 2000 13:12:52 +0200
Message-Id: <20000705130745.67BF.H.M.BRAND@hccnet.nl>
Subject: Re: format bug report [Patch]
From: "H.Merijn Brand" <h.m.brand@hccnet.nl>
Date: Wed, 05 Jul 2000 14:10:01 +0200
Message-Id: <20000705140837.73C2.H.M.BRAND@hccnet.nl>
p4raw-id: //depot/cfgperl@6340
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -3172,7 +3172,7 @@ Perl_yylex(pTHX) yyerror("Unmatched right curly bracket"); else PL_expect = (expectation)PL_lex_brackstack[--PL_lex_brackets]; - if (PL_lex_brackets < PL_lex_formbrack) + if (PL_lex_brackets < PL_lex_formbrack && PL_lex_state != LEX_INTERPNORMAL) PL_lex_formbrack = 0; if (PL_lex_state == LEX_INTERPNORMAL) { if (PL_lex_brackets == 0) { @@ -7176,7 +7176,7 @@ S_scan_formline(pTHX_ register char *s) bool needargs = FALSE; while (!needargs) { - if (*s == '.' || *s == '}') { + if (*s == '.' || *s == /*{*/'}') { /*SUPPRESS 530*/ #ifdef PERL_STRICT_CR for (t = s+1;SPACE_OR_TAB(*t); t++) ; |