From 1ff84a326d0d713e63382bbe164adbb6b4902a1b Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 5 Sep 2011 20:17:03 -0500
Subject: don't allow variable names that contain ::

---
 XS.xs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'XS.xs')

diff --git a/XS.xs b/XS.xs
index 8c84081..60775b7 100644
--- a/XS.xs
+++ b/XS.xs
@@ -235,6 +235,13 @@ static void _deconstruct_variable_hash(HV *variable, varspec_t *varspec)
     varspec->type = string_to_vartype(SvPV_nolen(HeVAL(val)));
 }
 
+static void _check_varspec_is_valid(varspec_t *varspec)
+{
+    if (strstr(SvPV_nolen(varspec->name), "::")) {
+        croak("Variable names may not contain ::");
+    }
+}
+
 static int _valid_for_type(SV *value, vartype_t type)
 {
     svtype sv_type = SvROK(value) ? SvTYPE(SvRV(value)) : SVt_NULL;
-- 
cgit v1.2.3-54-g00ecf