X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.c;h=fe1df904c3dcee334104143bcb3c6d504e618a08;hb=dc92893f11da1644967e0cba1816c77151a07426;hp=9e29975cfc602d2dcd3cba47d8a0638958f1263c;hpb=13c658c95a9106efbd9a2a741a39e24c1c0f4e3b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl.c b/perl.c
index 9e29975..fe1df90 100644
--- a/perl.c
+++ b/perl.c
@@ -164,9 +164,6 @@ perl_construct(register PerlInterpreter *sv_interp)
 	    SvREFCNT(&sv_yes) = (~(U32)0)/2;
 	}
 
-	nrs = newSVpv("\n", 1);
-	rs = SvREFCNT_inc(nrs);
-
 #ifdef PERL_OBJECT
 	/* TODO: */
 	/* sighandlerp = sighandler; */
@@ -186,6 +183,9 @@ perl_construct(register PerlInterpreter *sv_interp)
 #endif
     }
 
+    nrs = newSVpv("\n", 1);
+    rs = SvREFCNT_inc(nrs);
+
     init_stacks(ARGS);
 #ifdef MULTIPLICITY
     init_interp();
@@ -428,7 +428,10 @@ perl_destruct(register PerlInterpreter *sv_interp)
     Safefree(ors);	/* $\ */
     ors = Nullch;
 
-    SvREFCNT_dec(nrs);	/* $\ helper */
+    SvREFCNT_dec(rs);	/* $/ */
+    rs = Nullsv;
+
+    SvREFCNT_dec(nrs);	/* $/ helper */
     nrs = Nullsv;
 
     multiline = 0;	/* $* */