Unweaken refs in in-place reverse

For consistency with assignment and in-place sort

1 files changed, 7 insertions, 0 deletions

diff --git a/pp.c b/pp.c
index 42bea4db70..382ee96fe9 100644
--- a/pp.c
+++ b/pp.c
@@ -5586,7 +5586,14 @@ PP(pp_reverse)
 			SV * const tmp = *begin;
 			*begin++ = *end;
 			*end--   = tmp;
+
+                        if (tmp && SvWEAKREF(tmp))
+                            sv_rvunweaken(tmp);
 		    }
+
+                    /* make sure we catch the middle element */
+                    if (begin == end && *begin && SvWEAKREF(*begin))
+                        sv_rvunweaken(*begin);
 		}
 	    }
 	}