From: Florian Ragwitz <rafl@debian.org>
Date: Sun, 7 Jun 2009 11:00:06 +0000 (+0200)
Subject: Fix compilation on 5.8.
X-Git-Tag: 0.005006~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6d6f4cad27fa7e1f88d781d842e09e21d4c0cff4;p=p5sagit%2FDevel-Declare.git

Fix compilation on 5.8.
---

diff --git a/stolen_chunk_of_toke.c b/stolen_chunk_of_toke.c
index 7abecc5..8f3b040 100644
--- a/stolen_chunk_of_toke.c
+++ b/stolen_chunk_of_toke.c
@@ -850,8 +850,8 @@ S_scan_str(pTHX_ char *start, int keep_quoted, int keep_delims)
 STATIC void
 S_force_next(pTHX_ I32 type)
 {
-    dVAR;
 #ifdef PERL_MAD
+    dVAR;
     if (PL_curforce < 0)
     start_force(PL_lasttoke);
     PL_nexttoke[PL_curforce].next_type = type;