diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-09-28 08:08:24 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-09-28 08:08:24 +0000 |
| commit | 401441c0a1ebb6ac9c38237eb5daa1c00cea8bb6 (patch) | |
| tree | caf77f7f776d5110ac612c667d298770681961aa /toke.c | |
| parent | 00243fce2e6342da5c299fe3c6bd180ff12ba811 (diff) | |
| download | perl-401441c0a1ebb6ac9c38237eb5daa1c00cea8bb6.tar.gz | |
Perl -DT segfaults when parsing a 'use' statement
p4raw-id: //depot/perl@23336
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -309,8 +309,11 @@ S_tokereport(pTHX_ char* s, I32 rv) Perl_sv_catpvf(aTHX_ report, "(pval=\"%s\")", yylval.pval); break; case TOKENTYPE_OPVAL: - Perl_sv_catpvf(aTHX_ report, "(opval=op_%s)", + if (yylval.opval) + Perl_sv_catpvf(aTHX_ report, "(opval=op_%s)", PL_op_name[yylval.opval->op_type]); + else + Perl_sv_catpv(aTHX_ report, "(opval=null)"); break; } Perl_sv_catpvf(aTHX_ report, " at line %d [", CopLINE(PL_curcop)); |