[Bast-commits] r4458 - in trunk/Devel-Declare: . lib/Devel

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2008-06-03 08:06:41 +0100 (Tue, 03 Jun 2008)
New Revision: 4458

Modified:
   trunk/Devel-Declare/Changes
   trunk/Devel-Declare/Declare.xs
   trunk/Devel-Declare/Makefile.PL
   trunk/Devel-Declare/lib/Devel/Declare.pm
Log:
Newx -> New

Modified: trunk/Devel-Declare/Changes
===================================================================
--- trunk/Devel-Declare/Changes	2008-06-02 20:02:05 UTC (rev 4457)
+++ trunk/Devel-Declare/Changes	2008-06-03 07:06:41 UTC (rev 4458)
@@ -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

Modified: trunk/Devel-Declare/Declare.xs
===================================================================
--- trunk/Devel-Declare/Declare.xs	2008-06-02 20:02:05 UTC (rev 4457)
+++ trunk/Devel-Declare/Declare.xs	2008-06-03 07:06:41 UTC (rev 4458)
@@ -178,7 +178,7 @@
           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

Modified: trunk/Devel-Declare/Makefile.PL
===================================================================
--- trunk/Devel-Declare/Makefile.PL	2008-06-02 20:02:05 UTC (rev 4457)
+++ trunk/Devel-Declare/Makefile.PL	2008-06-03 07:06:41 UTC (rev 4458)
@@ -3,6 +3,7 @@
 use 5.008001;
 
 name 'Devel-Declare';
+version '0.001008';
 all_from 'lib/Devel/Declare.pm';
 
 requires 'Scalar::Util';

Modified: trunk/Devel-Declare/lib/Devel/Declare.pm
===================================================================
--- trunk/Devel-Declare/lib/Devel/Declare.pm	2008-06-02 20:02:05 UTC (rev 4457)
+++ trunk/Devel-Declare/lib/Devel/Declare.pm	2008-06-03 07:06:41 UTC (rev 4458)
@@ -4,7 +4,7 @@
 use warnings;
 use 5.008001;
 
-our $VERSION = '0.001006';
+our $VERSION = '0.001008';
 
 # mirrored in Declare.xs as DD_HANDLE_*