Don't segfault if HvNAME(PL_curstash) == NULL.

diff --git a/Declare.xs b/Declare.xs
index db84e25..78177fb 100644 (file)
--- a/Declare.xs
+++ b/Declare.xs
@@ -51,6 +51,9 @@ int dd_is_declarator(pTHX_ char* name) {
 
   /* $declarators{$current_package_name} */
 
+  if (!HvNAME(PL_curstash))
+         return -1;
+
   is_declarator_pack_ref = hv_fetch(is_declarator, HvNAME(PL_curstash),
                              strlen(HvNAME(PL_curstash)), FALSE);