This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
enable dynaloading in C.pm-compiled programs (non-conflicting part
authorVishal Bhatia <vishal@deja.com>
Mon, 8 Feb 1999 01:14:41 +0000 (01:14 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 15 Feb 1999 10:07:08 +0000 (10:07 +0000)
of suggested patch)
Message-ID: <DHIDFFOPMEFDBAAA@my-dejanews.com>
Subject: [PATCH 5.005_54] some pending C.pm stuff

p4raw-id: //depot/perl@2940

ext/B/B/C.pm

index 647ae5e..3803c71 100644 (file)
@@ -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
 }