Allow lvalue subs to return COWs in list context

Commit f71f472 missed list assignment. :-(

1 files changed, 5 insertions, 1 deletions

diff --git a/pp_hot.c b/pp_hot.c
index 9730af74f5..75811a27f4 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2745,7 +2745,11 @@ PP(pp_leavesublv)
 	    EXTEND_MORTAL(SP - newsp);
 	    for (mark = newsp + 1; mark <= SP; mark++) {
 		if (*mark != &PL_sv_undef
-		    && SvFLAGS(*mark) & (SVs_TEMP | SVs_PADTMP | SVf_READONLY)) {
+		    && (SvFLAGS(*mark) & (SVs_TEMP | SVs_PADTMP)
+		       || (SvFLAGS(*mark) & (SVf_READONLY|SVf_FAKE))
+		             == SVf_READONLY
+		       )
+		) {
 		    /* Might be flattened array after $#array =  */
 		    PUTBACK;
 		    LEAVE;