Skip to content
Browse files

dl_init: also with modules

  • Loading branch information...
1 parent e77d1f0 commit 79940945ae0d0d70fccc58c0b8cb0cdd84dfee0c @rurban committed
Showing with 3 additions and 2 deletions.
  1. +3 −2 lib/B/C.pm
View
5 lib/B/C.pm
@@ -7404,13 +7404,14 @@ EOT1
}
sub output_init {
- print <<'EOT';
+ print <<'EOT';
/* our special compiled init */
perl_init(aTHX);
EOT
print " perl_init1(aTHX);\n" if $init1->index >= 0;
- print " dl_init(aTHX);\n" unless defined $module;
+ # XXX maybe we need dl_init for a module, esp. when it's XS loading.
+ print " dl_init(aTHX);\n";
print " perl_init2(aTHX);\n" if $init2->index >= 0;
}

0 comments on commit 7994094

Please sign in to comment.
Something went wrong with that request. Please try again.