Change 23336 by rgs@no-spam on 2004/09/28 08:08:24
Perl -DT segfaults when parsing a 'use' statement
Affected files ...
... //depot/perl/toke.c#503 edit
Differences ...
==== //depot/perl/toke.c#503 (text) ====
Index: perl/toke.c
--- perl/toke.c#502~23325~ Sun Sep 19 14:47:18 2004
+++ perl/toke.c Tue Sep 28 01:08:24 2004
@@no-spam -309,8 +309,11 @@no-spam
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));
End of Patch.