Mercurial > vim

diff src/if_perl.xs @ 8919:240ad5a78199 v7.4.1746

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
commit https://github.com/vim/vim/commit/95509e18f8806046eeee27482c77666bbec515da Author: Bram Moolenaar <Bram@vim.org> Date: Fri Apr 15 21:16:11 2016 +0200 patch 7.4.1746 Problem: Memory leak in Perl. Solution: Decrement the reference count. Add a test. (Damien)
author Christian Brabandt <cb@256bit.org>
date Fri, 15 Apr 2016 21:30:06 +0200
parents 54a380c74547
children 95fd0de7a8f1
line wrap: on
line diff
--- a/src/if_perl.xs
+++ b/src/if_perl.xs
@@ -844,6 +844,7 @@ I32 cur_val(IV iv, SV *sv)
     else
 	rv = newBUFrv(newSV(0), curbuf);
     sv_setsv(sv, rv);
+    SvREFCNT_dec(SvRV(rv));
     return 0;
 }
 #endif /* !PROTO */