[Bast-commits] r4917 - Devel-Declare/1.000/trunk

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-10-12 15:27:04 +0100 (Sun, 12 Oct 2008)
New Revision: 4917

Modified:
   Devel-Declare/1.000/trunk/Declare.xs
Log:
Make get_linestr_offset return -1 if we're not parsing.

Modified: Devel-Declare/1.000/trunk/Declare.xs
===================================================================
--- Devel-Declare/1.000/trunk/Declare.xs	2008-10-12 14:26:44 UTC (rev 4916)
+++ Devel-Declare/1.000/trunk/Declare.xs	2008-10-12 14:27:04 UTC (rev 4917)
@@ -139,7 +139,11 @@
 }
 
 int dd_get_linestr_offset(pTHX) {
-  char* linestr = SvPVX(PL_linestr);
+  char* linestr;
+  if (!DD_HAVE_PARSER) {
+    return -1;
+  }
+  linestr = SvPVX(PL_linestr);
   return PL_bufptr - linestr;
 }