From 8226a3d7ea7a9414bc41d73011d23876bd55e4b8 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 24 Nov 2008 18:48:43 +0000
Subject: Promote Perl_setdefout() to the public API.

p4raw-id: //depot/perl@34904
---
 pp_sys.c | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'pp_sys.c')

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)
 {
-- 
cgit v1.2.1