Re: Patch 8.1.0190

[Ken Takata]

Hi,

2018/7/17 Tue 0:46:34 UTC+9 Bram Moolenaar wrote:
> Patch 8.1.0190
> Problem:    Perl refcounts are wrong.
> Solution:   Improve refcounting.  Add a test. (Damien)
> Files:            src/if_perl.xs, src/testdir/test_perl.vim

Indent is not correct.
Please check the attached patch.

Regards,
Ken Takata

-- 
-- 
You received this message from the "vim_dev" maillist.
Do not top-post! Type your reply below the text you are replying to.
For more information, visit http://www.vim.org/maillist.php

--- 
You received this message because you are subscribed to the Google Groups 
"vim_dev" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to vim_dev+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

# HG changeset patch
# Parent  35c529f2c66d278e974b08ac2d10a1c955b5a965

diff --git a/src/if_perl.xs b/src/if_perl.xs
--- a/src/if_perl.xs
+++ b/src/if_perl.xs
@@ -870,8 +870,8 @@ perl_win_free(win_T *wp)
 {
     if (wp->w_perl_private && perl_interp != NULL)
     {
-    	SV *sv = (SV*)wp->w_perl_private;
-    	D_Save_Sv(sv);
+	SV *sv = (SV*)wp->w_perl_private;
+	D_Save_Sv(sv);
 	sv_setiv(sv, 0);
 	SvREFCNT_dec(sv);
     }
@@ -883,8 +883,8 @@ perl_buf_free(buf_T *bp)
 {
     if (bp->b_perl_private && perl_interp != NULL)
     {
-    	SV *sv = (SV *)bp->b_perl_private;
-    	D_Save_Sv(sv);
+	SV *sv = (SV *)bp->b_perl_private;
+	D_Save_Sv(sv);
 	sv_setiv(sv, 0);
 	SvREFCNT_dec(sv);
     }
@@ -920,8 +920,8 @@ I32 cur_val(IV iv, SV *sv)
     if (SvRV(sv) == SvRV(rv))
 	SvREFCNT_dec(SvRV(rv));
     else /* XXX: Not sure if the `else` condition are right
-    	  * Test_SvREFCNT() pass in all case.
-    	  */
+	  * Test_SvREFCNT() pass in all case.
+	  */
 	sv_setsv(sv, rv);
 
     return 0;