gistfile1.perl

diff -urN Devel-Declare-0.006001.orig/Declare.xs Devel-Declare-0.006001.mod0/Declare.xs
--- Devel-Declare-0.006001.orig/Declare.xs      2011-02-26 05:51:17.000000000 +0000
+++ Devel-Declare-0.006001.mod0/Declare.xs      2011-04-04 21:24:03.000000000 +0100
@@ -379,6 +379,8 @@
   return o;    
 }

+#endif /* !DD_GROW_VIA_BLOCKHOOK */
+
 static I32 dd_filter_realloc(pTHX_ int idx, SV *sv, int maxlen)
 { 
   const I32 count = FILTER_READ(idx+1, sv, maxlen);
@@ -387,8 +389,6 @@
   return count;
 }

-#endif /* !DD_GROW_VIA_BLOCKHOOK */
-
 static int dd_handle_const(pTHX_ char *name) {
   switch (PL_lex_inwhat) {
     case OP_QR:
@@ -500,9 +500,7 @@
     hook_op_check(OP_CONST, dd_ck_const, NULL);
 #endif /* !DD_CONST_VIA_RV2CV */
   }
-#if !DD_GROW_VIA_BLOCKHOOK
   filter_add(dd_filter_realloc, NULL);
-#endif /* !DD_GROW_VIA_BLOCKHOOK */
 
 char*
 get_linestr()