diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-04-08 10:12:13 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-04-08 19:47:05 +0000 |
| commit | 7678c486bb9005aaaba9a0134efb395936e5a9f7 (patch) | |
| tree | a14c4408ef5ecb1a0dd715897c93c0baee53e3f3 /op.c | |
| parent | 27308ded152a902d86f6f5763883d26b257e257a (diff) | |
| download | perl-7678c486bb9005aaaba9a0134efb395936e5a9f7.tar.gz | |
Re: Error: Unknown error
Message-ID: <20030408041213.GA13553@ratsnest.hole>
p4raw-id: //depot/perl@19170
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -4191,7 +4191,7 @@ Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) if (*s != 'B' && *s != 'E' && *s != 'C' && *s != 'I') goto done; - if (strEQ(s, "BEGIN")) { + if (strEQ(s, "BEGIN") && !PL_error_count) { I32 oldscope = PL_scopestack_ix; ENTER; SAVECOPFILE(&PL_compiling); |