1 files changed, 27 insertions, 0 deletions
diff --git a/main.c b/main.c
index 2a8f4345de..fe34e7583d 100644
--- a/main.c
+++ b/main.c
@@ -25,3 +25,30 @@ char **env;
 
     exit( exitstatus );
 }
+
+/* Register any extra external extensions */
+
+void
+perl_init_ext()
+{
+    char *file = __FILE__;
+
+#ifdef HAS_DB
+    newXSUB("DB_File::init",   0, init_DB_File,   file);
+#endif
+#ifdef HAS_NDBM
+    newXSUB("NDBM_File::init", 0, init_NDBM_File, file);
+#endif
+#ifdef HAS_GDBM
+    newXSUB("GDBM_File::init", 0, init_GDBM_File, file);
+#endif
+#ifdef HAS_SDBM
+    newXSUB("SDBM_File::init", 0, init_SDBM_File, file);
+#endif
+#ifdef HAS_ODBM
+    newXSUB("ODBM_File::init", 0, init_ODBM_File, file);
+#endif
+#ifdef HAS_DBZ
+    newXSUB("DBZ_File::init",  0, init_DBZ_File,  file);
+#endif
+}