enable dynaloading in C.pm-compiled programs (non-conflicting part

of suggested patch)
	Message-ID: <DHIDFFOPMEFDBAAA@my-dejanews.com>
	Subject: [PATCH 5.005_54] some pending C.pm stuff

p4raw-id: //depot/perl@2940

diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm
index 647ae5e..3803c71 100644 (file)
--- a/ext/B/B/C.pm
+++ b/ext/B/B/C.pm
@@ -1034,6 +1034,8 @@ sub output_boilerplate {
 /* Workaround for mapstart: the only op which needs a different ppaddr */
 #undef pp_mapstart
 #define pp_mapstart pp_grepstart
+#define XS_DynaLoader_boot_DynaLoader boot_DynaLoader
+EXTERN_C void boot_DynaLoader _((CV* cv));
 
 static void xs_init _((void));
 static PerlInterpreter *my_perl;
@@ -1109,10 +1111,14 @@ main(int argc, char **argv, char **env)
     exit( exitstatus );
 }
 
+/* yanked from perl.c */
 static void
 xs_init()
 {
-}
+    char *file = __FILE__;
+    dXSUB_SYS;
+        newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
+}                                                                              
 EOT
 }