Newx -> New

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

diff --git a/Changes b/Changes
index cda8624..ba8499c 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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_*