X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/16ada235c332e017667585e1a5a00ce43a31c529..943937462af807936ae15936e520f3eec3acc8d7:/pp_sort.c

diff --git a/pp_sort.c b/pp_sort.c
index 8be778e..b4a9dd9 100644
--- a/pp_sort.c
+++ b/pp_sort.c
@@ -1094,9 +1094,6 @@ 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) {