diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-23 06:08:46 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-23 06:08:46 +0000 |
| commit | b6429b1b67c6f0e2a8a4aac1874df3fa87f9d71b (patch) | |
| tree | fca32923b8f308696b21ffada0dd37fa38d02e68 /doop.c | |
| parent | d94c72661a5453999b626de9c44b63bc654fbd1a (diff) | |
| download | perl-b6429b1b67c6f0e2a8a4aac1874df3fa87f9d71b.tar.gz | |
make \(%foo) return refs to values (not copies of values)
From: Stephen McCamant <smccam@uclink4.berkeley.edu>
Date: Fri, 28 Aug 1998 20:46:10 -0700 (PDT)
Message-ID: <13799.30680.47765.352558@fre-76-120.reshall.berkeley.edu>
--
From: Roderick Schertler <roderick@argon.org>
Date: Sat, 29 Aug 1998 00:58:33 -0400
Message-ID: <29894.904366713@eeyore.ibcinc.com>
Subject: Re: \(%x) problems
p4raw-id: //depot/perl@1819
Diffstat (limited to 'doop.c')
| -rw-r--r-- | doop.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -1067,10 +1067,9 @@ do_kv(ARGSproto) if (dokeys) XPUSHs(hv_iterkeysv(entry)); /* won't clobber stack_sp */ if (dovalues) { - tmpstr = sv_newmortal(); PUTBACK; - sv_setsv(tmpstr,realhv ? - hv_iterval(hv,entry) : avhv_iterval((AV*)hv,entry)); + tmpstr = realhv ? + hv_iterval(hv,entry) : avhv_iterval((AV*)hv,entry); DEBUG_H(sv_setpvf(tmpstr, "%lu%%%d=%lu", (unsigned long)HeHASH(entry), HvMAX(keys)+1, |