From: Yuval Kogman <nothingmuch@woobling.org>
Date: Sun, 19 Apr 2009 18:55:57 +0000 (+0200)
Subject: s/strndup/savepvn/
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9153603b2db10dba5a1cca8ab98d5a296857794e;p=gitmo%2FClass-MOP.git

s/strndup/savepvn/
---

diff --git a/cmop/mop_attr.c b/cmop/mop_attr.c
index 3de5173..f0afe2a 100644
--- a/cmop/mop_attr.c
+++ b/cmop/mop_attr.c
@@ -180,7 +180,7 @@ initialize_default_builder (mop_attr_t *attr, SV *perl_attr)
 	SPAGAIN;
 
 	builder = SvPV (POPs, len);
-	attr->default_value.method = strndup (builder, len);
+	attr->default_value.method = savepvn (builder, len);
 	ATTRFLAGS (attr) |= (mop_attr_default_builder << ATTR_DEFAULT_SHIFT);
 
 	PUTBACK;