--- IO-AIO/schmorp.h	2009/07/14 00:32:27	1.3
+++ IO-AIO/schmorp.h	2009/07/14 00:51:31	1.4
@@ -7,6 +7,8 @@
 
 /* useful stuff, used by schmorp mostly */
 
+#include "patchlevel.h"
+
 #define PERL_VERSION_ATLEAST(a,b,c)				\
   (PERL_REVISION > (a)						\
    || (PERL_REVISION == (a)					\
@@ -138,8 +140,7 @@
   HV *st;
   GV *gvp;
 
-  SvGETMAGIC (cb_sv);
-  return SvOK (cb_sv) ? sv_2cv (cb_sv, &st, &gvp, 0) : 0;
+  return (SV *)sv_2cv (cb_sv, &st, &gvp, 0);
 }
 
 static SV *