diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-13 19:02:07 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-13 19:02:07 +0000 |
| commit | 0f79a09d62eb410185d697430134f937ab4e917d (patch) | |
| tree | 79a361d65e09a6a28c1ab478935463a3d36adb2e /scope.c | |
| parent | 8ecf71871febb31312d723e89648aadebf858ae1 (diff) | |
| download | perl-0f79a09d62eb410185d697430134f937ab4e917d.tar.gz | |
more purification (pp_require() could access free memory; vdie()
could think message was random length when passed a null argument;
utilize() didn't set up the hash for the method name leading to
pp_method_named() accessing random state; PL_curpm wasn't zeroed
properly)
p4raw-id: //depot/perl@5072
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -994,8 +994,9 @@ Perl_cx_dump(pTHX_ PERL_CONTEXT *cx) PerlIO_printf(Perl_debug_log, "BLK_EVAL.OLD_OP_TYPE = %s (%s)\n", PL_op_name[cx->blk_eval.old_op_type], PL_op_desc[cx->blk_eval.old_op_type]); - PerlIO_printf(Perl_debug_log, "BLK_EVAL.OLD_NAME = %s\n", - cx->blk_eval.old_name); + if (cx->blk_eval.old_namesv) + PerlIO_printf(Perl_debug_log, "BLK_EVAL.OLD_NAME = %s\n", + SvPVX(cx->blk_eval.old_namesv)); PerlIO_printf(Perl_debug_log, "BLK_EVAL.OLD_EVAL_ROOT = 0x%"UVxf"\n", PTR2UV(cx->blk_eval.old_eval_root)); break; |