Change 34904 by [EMAIL PROTECTED] on 2008/11/24 18:48:43
Promote Perl_setdefout() to the public API.
Affected files ...
... //depot/perl/embed.fnc#631 edit
... //depot/perl/embed.h#768 edit
... //depot/perl/pod/perlapi.pod#336 edit
... //depot/perl/pod/perlintern.pod#79 edit
... //depot/perl/pp_sys.c#572 edit
Differences ...
==== //depot/perl/embed.fnc#631 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#630~34829~ 2008-11-12 21:47:34.000000000 -0800
+++ perl/embed.fnc 2008-11-24 10:48:43.000000000 -0800
@@ -826,7 +826,7 @@
#if !defined(VMS)
p |I32 |setenv_getix |NN const char* nam
#endif
-EXp |void |setdefout |NULLOK GV* gv
+Apd |void |setdefout |NULLOK GV* gv
Ap |HEK* |share_hek |NN const char* str|I32 len|U32 hash
#if defined(HAS_SIGACTION) && defined(SA_SIGINFO)
np |Signal_t |sighandler |int sig|NULLOK siginfo_t *info|NULLOK void *uap
==== //depot/perl/embed.h#768 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#767~34829~ 2008-11-12 21:47:34.000000000 -0800
+++ perl/embed.h 2008-11-24 10:48:43.000000000 -0800
@@ -812,9 +812,7 @@
#define setenv_getix Perl_setenv_getix
#endif
#endif
-#if defined(PERL_CORE) || defined(PERL_EXT)
#define setdefout Perl_setdefout
-#endif
#define share_hek Perl_share_hek
#if defined(HAS_SIGACTION) && defined(SA_SIGINFO)
#ifdef PERL_CORE
@@ -3128,9 +3126,7 @@
#define setenv_getix(a) Perl_setenv_getix(aTHX_ a)
#endif
#endif
-#if defined(PERL_CORE) || defined(PERL_EXT)
#define setdefout(a) Perl_setdefout(aTHX_ a)
-#endif
#define share_hek(a,b,c) Perl_share_hek(aTHX_ a,b,c)
#if defined(HAS_SIGACTION) && defined(SA_SIGINFO)
#ifdef PERL_CORE
==== //depot/perl/pod/perlapi.pod#336 (text+w) ====
Index: perl/pod/perlapi.pod
--- perl/pod/perlapi.pod#335~34820~ 2008-11-12 02:42:21.000000000 -0800
+++ perl/pod/perlapi.pod 2008-11-24 10:48:43.000000000 -0800
@@ -1232,6 +1232,27 @@
=back
+=head1 Functions in file pp_sys.c
+
+
+=over 8
+
+=item setdefout
+X<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.
+
+ void setdefout(GV* gv)
+
+=for hackers
+Found in file pp_sys.c
+
+
+=back
+
=head1 GV Functions
=over 8
==== //depot/perl/pp_sys.c#572 (text) ====
Index: perl/pp_sys.c
--- perl/pp_sys.c#571~34698~ 2008-11-02 13:12:59.000000000 -0800
+++ perl/pp_sys.c 2008-11-24 10:48:43.000000000 -0800
@@ -1156,6 +1156,17 @@
#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)
{
End of Patch.
