X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/c366adb4d8e96138e96920f4a327296016a696e0..8bfdd7d95bcb290ba639e2c88c5d4370ab8fcfc0:/mg.c

diff --git a/mg.c b/mg.c
index 3de4420..4fc2ffc 100644
--- a/mg.c
+++ b/mg.c
@@ -1911,10 +1911,8 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
 	PL_multiline = (i != 0);
 	break;
     case '/':
-	SvREFCNT_dec(PL_nrs);
-	PL_nrs = newSVsv(sv);
 	SvREFCNT_dec(PL_rs);
-	PL_rs = SvREFCNT_inc(PL_nrs);
+	PL_rs = newSVsv(sv);
 	break;
     case '\\':
 	if (PL_ors_sv)