From: Vishal Bhatia <vishal@deja.com>
Date: Mon, 8 Feb 1999 01:14:41 +0000 (+0000)
Subject: enable dynaloading in C.pm-compiled programs (non-conflicting part
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=511dd457ec43006d88c98d57960fa4353caf989e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
 }