diff options
| author | Chip Salzenberg <chip@pobox.com> | 2008-11-13 16:44:36 -0800 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2008-11-14 12:37:01 +0000 |
| commit | e23d9e2f39425eea292ee5999c974fdc2cdd98b8 (patch) | |
| tree | dfc9224eeb4048f96a454d8554932ff0ea226d95 /intrpvar.h | |
| parent | fc8f615e0f1bfc61d321240c5d49d61e3e6f6939 (diff) | |
| download | perl-e23d9e2f39425eea292ee5999c974fdc2cdd98b8.tar.gz | |
[perl #948] [PATCH] Allow tied $,
Message-ID: <20081114084436.GJ5779@tytlal.topaz.cx>
p4raw-id: //depot/perl@34831
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/intrpvar.h b/intrpvar.h index 0a8d10552f..e5c9e3bed1 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -102,16 +102,16 @@ The input record separator - C<$/> in Perl space. The GV which was last used for a filehandle input operation. (C<< <FH> >>) -=for apidoc mn|SV*|PL_ofs_sv +=for apidoc mn|GV*|PL_ofsgv -The output field separator - C<$,> in Perl space. +The glob containing the output field separator - C<*,> in Perl space. =cut */ PERLVAR(Irs, SV *) /* input record separator $/ */ PERLVAR(Ilast_in_gv, GV *) /* GV used in last <FH> */ -PERLVAR(Iofs_sv, SV *) /* output field separator $, */ +PERLVAR(Iofsgv, GV *) /* GV of output field separator *, */ PERLVAR(Idefoutgv, GV *) /* default FH for output */ PERLVARI(Ichopset, const char *, " \n-") /* $: */ PERLVAR(Iformtarget, SV *) |