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

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-10-19 18:23:19 +0100 (Sun, 19 Oct 2008)
New Revision: 4944

Modified:
   Devel-Declare/1.000/trunk/Declare.xs
Log:
Don't segfault if HvNAME(PL_curstash) == NULL.

Modified: Devel-Declare/1.000/trunk/Declare.xs
===================================================================
--- Devel-Declare/1.000/trunk/Declare.xs	2008-10-19 07:53:54 UTC (rev 4943)
+++ Devel-Declare/1.000/trunk/Declare.xs	2008-10-19 17:23:19 UTC (rev 4944)
@@ -51,6 +51,9 @@
 
   /* $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);