Strengthen weak refs when sorting in-place

It's conceptually an assignment, which should strengthen any weak refs.

Reported-by: Tom Molesworth <team@cpan.org>

1 files changed, 3 insertions, 0 deletions

diff --git a/pp_sort.c b/pp_sort.c
index ee1dc5dd98..5f39dba40e 100644
--- a/pp_sort.c
+++ b/pp_sort.c
@@ -1769,6 +1769,9 @@ PP(pp_sort)
                     base[i] = newSVsv(sv);
                 else
                     SvREFCNT_inc_simple_void_NN(sv);
+
+                if (SvWEAKREF(sv))
+                    sv_rvunweaken(sv);
             }
             av_clear(av);
             if (max > 0) {