From 95509e18f8806046eeee27482c77666bbec515da Mon Sep 17 00:00:00 2001
From: Bram Moolenaar <Bram@vim.org>
Date: Fri, 15 Apr 2016 21:16:11 +0200
Subject: patch 7.4.1746 Problem:    Memory leak in Perl. Solution:   Decrement
 the reference count.  Add a test. (Damien)

---
 src/if_perl.xs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/if_perl.xs')

diff --git a/src/if_perl.xs b/src/if_perl.xs
index b091bf7cab..23246a57b1 100644
--- 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 */
-- 
cgit v1.2.3