diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-11 16:36:14 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-11 16:36:14 +0000 |
| commit | 8ecf71871febb31312d723e89648aadebf858ae1 (patch) | |
| tree | 685e6020110de947779cf6590928b4d8ec20224f /ext/Devel | |
| parent | 9f3d182ed95630da223ec0d99832141e262ccc05 (diff) | |
| download | perl-8ecf71871febb31312d723e89648aadebf858ae1.tar.gz | |
fix uninitialized memory reads found by purify
p4raw-id: //depot/perl@5063
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/Peek/Peek.xs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/Devel/Peek/Peek.xs b/ext/Devel/Peek/Peek.xs index 8af8847820..e7f5746803 100644 --- a/ext/Devel/Peek/Peek.xs +++ b/ext/Devel/Peek/Peek.xs @@ -3,12 +3,12 @@ #include "perl.h" #include "XSUB.h" -#ifdef PURIFY -#define DeadCode() NULL -#else SV * DeadCode(pTHX) { +#ifdef PURIFY + return Nullsv; +#else SV* sva; SV* sv, *dbg; SV* ret = newRV_noinc((SV*)newAV()); @@ -114,8 +114,8 @@ DeadCode(pTHX) PerlIO_printf(Perl_debug_log, "total: refs: %i, strings: %i in %i\targsarray: %i, argsstrings: %i\n", tref, tm, ts, ta, tas); return ret; -} #endif /* !PURIFY */ +} #if defined(PERL_DEBUGGING_MSTATS) || defined(DEBUGGING_MSTATS) \ || (defined(MYMALLOC) && !defined(PLAIN_MALLOC)) |