--- Coro-Multicore/perlmulticore.h	2015/07/03 02:35:48	1.11
+++ Coro-Multicore/perlmulticore.h	2015/12/19 23:56:14	1.13
@@ -19,7 +19,7 @@
 
 =head1 SYNOPSIS
 
-  #include "perlmultiore.h"
+  #include "perlmulticore.h"
 
   // in your XS function:
 
@@ -173,6 +173,8 @@
 {
 }
 
+static const char perl_multicore_api_key[] = "perl_multicore_api";
+
 /* this is the initial implementation of "release" - it initialises */
 /* the api and then calls the real release function */
 static void
@@ -181,7 +183,8 @@
   dTHX;
 
   /* check for existing API struct in PL_modglobal */
-  SV **api_svp = hv_fetch (PL_modglobal, "perl_multicore_api", sizeof ("perl_multicore_api") - 1, 1);
+  SV **api_svp = hv_fetch (PL_modglobal, perl_multicore_api_key,
+                           sizeof (perl_multicore_api_key) - 1, 1);
 
   if (SvPOKp (*api_svp))
     perl_multicore_api = (struct perl_multicore_api *)SvPVX (*api_svp); /* we have one, use the existing one */