--- deliantra/server/plugins/cfperl/cfperl.xs	2006/02/04 00:33:07	1.8
+++ deliantra/server/plugins/cfperl/cfperl.xs	2006/02/04 16:17:47	1.9
@@ -545,7 +545,7 @@
 {
   HV *stash = gv_stashpv ("cf", 1);
 
-  const struct {
+  static const struct {
     const char *name;
     IV iv;
   } *civ, const_iv[] = {
@@ -839,7 +839,7 @@
   for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
     newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
 
-  const struct {
+  static const struct {
     const char *name;
     IV iv;
   } *event, event_list[] = {
@@ -880,7 +880,7 @@
   for (event = event_list + sizeof (event_list) / sizeof (event_list [0]); event-- > event_list; )
     av_store (av, event->iv, newSVpv ((char *)event->name, 0));
 
-  const struct {
+  static const struct {
     int dtype;
     const char *name;
     IV idx;