From: rafl <rafl@bd8105ee-0ff8-0310-8827-fb3f25b6796d>
Date: Sat, 4 Oct 2008 02:31:41 +0000 (+0000)
Subject: Don't call strlen() twice on the same string.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0bc94fe499da184411e14ecd051deb250c0f53fd;p=p5sagit%2FDevel-Declare.git

Don't call strlen() twice on the same string.

git-svn-id: http://dev.catalyst.perl.org/repos/bast/Devel-Declare/1.000/trunk@4871 bd8105ee-0ff8-0310-8827-fb3f25b6796d
---

diff --git a/Declare.xs b/Declare.xs
index 4148673..9b10cc4 100644
--- a/Declare.xs
+++ b/Declare.xs
@@ -120,7 +120,7 @@ void dd_set_linestr(pTHX_ char* new_value) {
   int new_len = strlen(new_value);
   char* old_linestr = SvPVX(PL_linestr);
 
-  SvGROW(PL_linestr, strlen(new_value));
+  SvGROW(PL_linestr, new_len);
 
   if (SvPVX(PL_linestr) != old_linestr)
     croak("forced to realloc PL_linestr for line %s, bailing out before we crash harder", SvPVX(PL_linestr));