From: Matt S Trout Date: Tue, 3 Jun 2008 07:06:41 +0000 (+0000) Subject: Newx -> New X-Git-Tag: 0.005000~106 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-Declare.git;a=commitdiff_plain;h=f5262149fb867399b7bf2b004d318131fc1a14a4 Newx -> New --- diff --git a/Changes b/Changes index cda8624..ba8499c 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,16 @@ Changes for Devel-Declare + - fix traits code to work on older 5.8.x perls + +0.001008 + - turns out 0.1.7 in Makefile.PL results in that version going into + the .xs file as well as the dist name. Then everything breaks. + +0.001007 + - bail on SvGROW during declare process since that can't work + - use a source filter on files and an op wrap on evals to pre-grow + PL_linestr so we don't get to the point of needing to bail + 0.001006 - nasty goto &$func hack to avoid :lvalue+list context weirdness - correct SvGROW invocation diff --git a/Declare.xs b/Declare.xs index 6f07ed3..938c25c 100644 --- a/Declare.xs +++ b/Declare.xs @@ -178,7 +178,7 @@ STATIC OP *dd_ck_rv2cv(pTHX_ OP *o) { while (*s && *s != '{') ++s; if (*s) { int tlen = s - traitstart; - Newx(found_traits, tlen+1, char); + New(0, found_traits, tlen+1, char); Copy(traitstart, found_traits, tlen, char); found_traits[tlen] = 0; #ifdef DD_DEBUG diff --git a/Makefile.PL b/Makefile.PL index ea6d149..3d30929 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -3,6 +3,7 @@ use inc::Module::Install 0.67; use 5.008001; name 'Devel-Declare'; +version '0.001008'; all_from 'lib/Devel/Declare.pm'; requires 'Scalar::Util'; diff --git a/lib/Devel/Declare.pm b/lib/Devel/Declare.pm index 78d0480..cbba554 100644 --- a/lib/Devel/Declare.pm +++ b/lib/Devel/Declare.pm @@ -4,7 +4,7 @@ use strict; use warnings; use 5.008001; -our $VERSION = '0.001006'; +our $VERSION = '0.001008'; # mirrored in Declare.xs as DD_HANDLE_*