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

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2008-06-04 11:56:51 +0100 (Wed, 04 Jun 2008)
New Revision: 4464

Modified:
   trunk/Devel-Declare/Changes
   trunk/Devel-Declare/Declare.xs
   trunk/Devel-Declare/Makefile.PL
   trunk/Devel-Declare/lib/Devel/Declare.pm
Log:
assloads of changes, apparently my previous commits failed

Modified: trunk/Devel-Declare/Changes
===================================================================
--- trunk/Devel-Declare/Changes	2008-06-03 18:15:27 UTC (rev 4463)
+++ trunk/Devel-Declare/Changes	2008-06-04 10:56:51 UTC (rev 4464)
@@ -1,5 +1,9 @@
 Changes for Devel-Declare
 
+0.001010
+  - fix traits code, again, so it compiles on 5.10.
+
+0.001009
   - only mangle evals if o->op_ppaddr is actually PL_ppaddr[OP_ENTERVAL]
   - don't set OPf_SPECIAL on entereval ops, mistaken cargo cult from autobox
   - fix traits code to work on older 5.8.x perls

Modified: trunk/Devel-Declare/Declare.xs
===================================================================
--- trunk/Devel-Declare/Declare.xs	2008-06-03 18:15:27 UTC (rev 4463)
+++ trunk/Devel-Declare/Declare.xs	2008-06-04 10:56:51 UTC (rev 4464)
@@ -8,7 +8,14 @@
 #include <stdio.h>
 #include <string.h>
 
+#ifndef Newx
+# define Newx(v,n,t) New(0,v,n,t)
+#endif /* !Newx */
+
+#if 1
 #define DD_HAS_TRAITS
+#endif
+
 #if 0
 #define DD_DEBUG
 #endif
@@ -178,7 +185,7 @@
           while (*s && *s != '{') ++s;
           if (*s) {
               int tlen = s - traitstart;
-              New(0, found_traits, tlen+1, char);
+              Newx(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-03 18:15:27 UTC (rev 4463)
+++ trunk/Devel-Declare/Makefile.PL	2008-06-04 10:56:51 UTC (rev 4464)
@@ -3,7 +3,6 @@
 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-03 18:15:27 UTC (rev 4463)
+++ trunk/Devel-Declare/lib/Devel/Declare.pm	2008-06-04 10:56:51 UTC (rev 4464)
@@ -4,7 +4,7 @@
 use warnings;
 use 5.008001;
 
-our $VERSION = '0.001008';
+our $VERSION = '0.001010';
 
 # mirrored in Declare.xs as DD_HANDLE_*