X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Name.xs;fp=Name.xs;h=5d36d141e178fc95a2346c991db0a05edee91d19;hb=85cf5faea36fd3017da852c57a42e804be210419;hp=20c9b7162fc92320da79b94b062f64dafc6c8ab5;hpb=988a6b12ae1c557d9e4ee594aa4896f0143438d9;p=p5sagit%2FSub-Name.git

diff --git a/Name.xs b/Name.xs
index 20c9b71..5d36d14 100644
--- a/Name.xs
+++ b/Name.xs
@@ -59,7 +59,9 @@ subname(name, sub)
 	}
 	s--;
         if (end) {
-		stash = GvHV(gv_fetchpv(savepvn(name, end - name), TRUE, SVt_PVHV));
+		char *namepv = savepvn(name, end - name);
+		stash = GvHV(gv_fetchpv(namepv, TRUE, SVt_PVHV));
+		Safefree(namepv);
                 name = end;
         }
 	gv = (GV *) newSV(0);