Re: [perl #39882] inconsistent list slice behaviour

Message-ID: <20060804014807.GW21381@localhost.localdomain>

p4raw-id: //depot/perl@28657

1 files changed, 1 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index df1663597f..d90545e830 100644
--- a/pp.c
+++ b/pp.c
@@ -4074,7 +4074,7 @@ PP(pp_lslice)
     SV ** const firstlelem = PL_stack_base + POPMARK + 1;
     register SV ** const firstrelem = lastlelem + 1;
     const I32 arybase = CopARYBASE_get(PL_curcop);
-    I32 is_something_there = PL_op->op_flags & OPf_MOD;
+    I32 is_something_there = FALSE;
 
     register const I32 max = lastrelem - lastlelem;
     register SV **lelem;