diff options
| author | Jan-Pieter Cornet <johnpc@xs4all.nl> | 1998-03-27 03:11:21 +0100 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-04-02 16:06:54 +0000 |
| commit | ec12f1140dd78d67c95825bf881ff58a52e9d030 (patch) | |
| tree | a173d8fd7256fabae0b5ef0d5418cba17edcb4e7 /perl.c | |
| parent | 17f28c40fa08b585b95d4a2531b1cd975d11e986 (diff) | |
| download | perl-ec12f1140dd78d67c95825bf881ff58a52e9d030.tar.gz | |
Re: [PATCH] [BUG 5.004_63] define/set of PERL_DESTRUCT_LEVEL
Date: Fri, 27 Mar 1998 02:11:21 +0100 (MET)
Subject: [PATCH] another destruct_level fix
Date: Mon, 30 Mar 1998 23:48:12 +0200 (MET DST)
p4raw-id: //depot/perl@855
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -497,7 +497,7 @@ perl_destruct(register PerlInterpreter *sv_interp) if (hent) { warn("Unbalanced string table refcount: (%d) for \"%s\"", HeVAL(hent) - Nullsv, HeKEY(hent)); - HeVAL(hent) = Nullsv; + HeVAL(hent) = &sv_undef; hent = HeNEXT(hent); } if (!hent) { |