diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2003-07-21 00:36:02 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-27 15:48:20 +0000 |
| commit | 7996736c5ecb6da6273386229ce113837049152c (patch) | |
| tree | 8890e38e9c2e349f70832a77e853ad6672182d1d /universal.c | |
| parent | 2edcda664a46cf47ed5ee5520834c7e424efc8fd (diff) | |
| download | perl-7996736c5ecb6da6273386229ce113837049152c.tar.gz | |
Re: [PATCH] Re: Storing &PL_sv_undef as a hash key with perl-5.8.x
From: "Marcus Holland-Moritz" <mhx-perl@gmx.net>
Message-ID: <006801c34efe$8aac1920$0c2f1fac@R2D2>
p4raw-id: //depot/perl@20224
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/universal.c b/universal.c index 9ee3e21a73..6ba5a13785 100644 --- a/universal.c +++ b/universal.c @@ -755,7 +755,7 @@ XS(XS_Internals_hv_clear_placehold) && items) { SV *val = hv_iterval(hv, entry); - if (val == &PL_sv_undef) { + if (val == &PL_sv_placeholder) { /* It seems that I have to go back in the front of the hash API to delete a hash, even though I have a HE structure |