diff options
| author | Rick Delaney <rick@consumercontact.com> | 2004-07-20 12:53:54 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-07-21 08:47:14 +0000 |
| commit | 04ab2c8763f1a01bee803d3ef65890b775f28c21 (patch) | |
| tree | 6151ff0a0728e74a309bc82c0f1ac3c40c6fe571 /pp.c | |
| parent | 03874afe4126e47a07c482418278c13f14c14597 (diff) | |
| download | perl-04ab2c8763f1a01bee803d3ef65890b775f28c21.tar.gz | |
Re: [perl #30688] Empty slice arg with ($;$) prototype
Message-ID: <20040720205353.GA970@biff.bort.ca>
p4raw-id: //depot/perl@23145
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -3749,7 +3749,7 @@ PP(pp_aslice) } if (GIMME != G_ARRAY) { MARK = ORIGMARK; - *++MARK = *SP; + *++MARK = SP > ORIGMARK ? *SP : &PL_sv_undef; SP = MARK; } RETURN; @@ -3949,7 +3949,7 @@ PP(pp_hslice) } if (GIMME != G_ARRAY) { MARK = ORIGMARK; - *++MARK = *SP; + *++MARK = SP > ORIGMARK ? *SP : &PL_sv_undef; SP = MARK; } RETURN; |