make unloading of extension shared objects (change#5381) a build

[perl5.git] / embed.pl

diff --git a/embed.pl b/embed.pl
index 27dd1c5..593ab19 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -688,7 +688,7 @@ print EM <<'END';
 
 #endif /* PERL_GLOBAL_STRUCT */
 
-#ifdef PERL_POLLUTE            /* disabled by default in 5.006 */
+#ifdef PERL_POLLUTE            /* disabled by default in 5.6.0 */
 
 END
 
@@ -870,6 +870,7 @@ print CAPIH <<'EOT';
 #endif /* __perlapi_h__ */
 
 EOT
+close CAPIH;
 
 print CAPI <<'EOT';
 /* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!