From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 21 Jul 1998 00:37:32 +0000 (+0000)
Subject: fix memory leak in C<local(*foo) = 'bar'>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ed6c1d6b44d8ffac74beba8dcd7c0393a8698b0d;p=p5sagit%2Fp5-mst-13.2.git

fix memory leak in C<local(*foo) = 'bar'>

p4raw-id: //depot/perl@1584
---

diff --git a/scope.c b/scope.c
index 4df5f2e..1008ab1 100644
--- a/scope.c
+++ b/scope.c
@@ -673,7 +673,7 @@ leave_scope(I32 base)
 	case SAVEt_GP:				/* scalar reference */
 	    ptr = SSPOPPTR;
 	    gv = (GV*)SSPOPPTR;
-            if (SvPOK(gv) && SvLEN(gv) > 0) {
+            if (SvPVX(gv) && SvLEN(gv) > 0) {
                 Safefree(SvPVX(gv));
             }
             SvPVX(gv) = (char *)SSPOPPTR;