Promote Perl_setdefout() to the public API.

p4raw-id: //depot/perl@34904

1 files changed, 11 insertions, 0 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 11cd863470..192ce6c01e 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1156,6 +1156,17 @@ PP(pp_sselect)
 #endif
 }
 
+/*
+=for apidoc setdefout
+
+Sets PL_defoutgv, the default file handle for output, to the passed in
+typeglob. As PL_defoutgv "owns" a reference on its typeglob, the reference
+count of the passed in typeglob is increased by one, and the reference count
+of the typeglob that PL_defoutgv points to is decreased by one.
+
+=cut
+*/
+
 void
 Perl_setdefout(pTHX_ GV *gv)
 {