Skip to content

Commit 5bc922f

Browse files
TuxTux
committed
Doc change: *STDOUT → $*OUT
Thanks jubilatious1
1 parent 3aba02f commit 5bc922f

File tree

7 files changed

+20
-20
lines changed

7 files changed

+20
-20
lines changed

‎doc/Text-CSV.3

+4-4
Original file line numberDiff line numberDiff line change
@@ -133,7 +133,7 @@
133133
.\" ========================================================================
134134
.\"
135135
.IX Title "STDIN 1"
136-
.TH STDIN 1 "2022-04-19" "perl v5.34.1" "User Contributed Perl Documentation"
136+
.TH STDIN 1 "2022-10-31" "perl v5.34.1" "User Contributed Perl Documentation"
137137
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
138138
.\" way too many mistakes in technical documents.
139139
.if n .ad l
@@ -2642,7 +2642,7 @@ The return code of the callback is ignored.
26422642
.Vb 3
26432643
\& my $idx = 1;
26442644
\& $csv.callbacks(before_print => { $^row[0] = $idx++ });
2645-
\& $csv.print(*STDOUT, [ 0, $_ ]) for @members;
2645+
\& $csv.print($*OUT, [ 0, $_ ]) for @members;
26462646
.Ve
26472647
.Sp
26482648
This callback is invoked before printing with \*(L"print\*(R" only if no error
@@ -2655,10 +2655,10 @@ The return code of the callback is ignored.
26552655
\& $r.elems > 4 and $r.splice (4);
26562656
\& } # max_4_fields
26572657
\&
2658-
\& csv(in => csv(in => "file.csv"), out => *STDOUT,
2658+
\& csv(in => csv(in => "file.csv"), out => $*OUT,
26592659
\& callbacks => { before print => \e&max_4_fields });
26602660
\&
2661-
\& csv(in => csv(in => "file.csv"), out => *STDOUT,
2661+
\& csv(in => csv(in => "file.csv"), out => $*OUT,
26622662
\& before print => { $^row.elems > 4 and $^row.splice(4) });
26632663
.Ve
26642664
.Sp

‎doc/Text-CSV.html

+3-3
Original file line numberDiff line numberDiff line change
@@ -2191,7 +2191,7 @@ <h2 id="Callbacks">Callbacks</h2>
21912191

21922192
<pre><code>my $idx = 1;
21932193
$csv.callbacks(before_print =&gt; { $^row[0] = $idx++ });
2194-
$csv.print(*STDOUT, [ 0, $_ ]) for @members;</code></pre>
2194+
$csv.print($*OUT, [ 0, $_ ]) for @members;</code></pre>
21952195

21962196
<p>This callback is invoked before printing with <a href="#print">&quot;print&quot;</a> only if no error occurred.</p>
21972197

@@ -2201,10 +2201,10 @@ <h2 id="Callbacks">Callbacks</h2>
22012201
$r.elems &gt; 4 and $r.splice (4);
22022202
} # max_4_fields
22032203

2204-
csv(in =&gt; csv(in =&gt; &quot;file.csv&quot;), out =&gt; *STDOUT,
2204+
csv(in =&gt; csv(in =&gt; &quot;file.csv&quot;), out =&gt; $*OUT,
22052205
callbacks =&gt; { before print =&gt; \&amp;max_4_fields });
22062206

2207-
csv(in =&gt; csv(in =&gt; &quot;file.csv&quot;), out =&gt; *STDOUT,
2207+
csv(in =&gt; csv(in =&gt; &quot;file.csv&quot;), out =&gt; $*OUT,
22082208
before print =&gt; { $^row.elems &gt; 4 and $^row.splice(4) });</code></pre>
22092209

22102210
<p>This callback is not active for <a href="#combine">&quot;combine&quot;</a>.</p>

‎doc/Text-CSV.man

+4-4
Original file line numberDiff line numberDiff line change
@@ -1955,7 +1955,7 @@ STDIN(1) User Contributed Perl Documentation STDIN(1)
19551955
before_print
19561956
my $idx = 1;
19571957
$csv.callbacks(before_print => { $^row[0] = $idx++ });
1958-
$csv.print(*STDOUT, [ 0, $_ ]) for @members;
1958+
$csv.print($*OUT, [ 0, $_ ]) for @members;
19591959

19601960
This callback is invoked before printing with "print" only if no
19611961
error occurred.
@@ -1966,10 +1966,10 @@ STDIN(1) User Contributed Perl Documentation STDIN(1)
19661966
$r.elems > 4 and $r.splice (4);
19671967
} # max_4_fields
19681968

1969-
csv(in => csv(in => "file.csv"), out => *STDOUT,
1969+
csv(in => csv(in => "file.csv"), out => $*OUT,
19701970
callbacks => { before print => \&max_4_fields });
19711971

1972-
csv(in => csv(in => "file.csv"), out => *STDOUT,
1972+
csv(in => csv(in => "file.csv"), out => $*OUT,
19731973
before print => { $^row.elems > 4 and $^row.splice(4) });
19741974

19751975
This callback is not active for "combine".
@@ -2540,4 +2540,4 @@ STDIN(1) User Contributed Perl Documentation STDIN(1)
25402540

25412541

25422542

2543-
perl v5.34.1 2022-04-19 STDIN(1)
2543+
perl v5.34.1 2022-10-31 STDIN(1)

‎doc/Text-CSV.md

+3-3
Original file line numberDiff line numberDiff line change
@@ -2182,7 +2182,7 @@ current [CSV::Row](https://metacpan.org/pod/CSV%3A%3ARow).
21822182

21832183
my $idx = 1;
21842184
$csv.callbacks(before_print => { $^row[0] = $idx++ });
2185-
$csv.print(*STDOUT, [ 0, $_ ]) for @members;
2185+
$csv.print($*OUT, [ 0, $_ ]) for @members;
21862186

21872187
This callback is invoked before printing with ["print"](#print) only if no error
21882188
occurred.
@@ -2193,10 +2193,10 @@ current [CSV::Row](https://metacpan.org/pod/CSV%3A%3ARow).
21932193
$r.elems > 4 and $r.splice (4);
21942194
} # max_4_fields
21952195

2196-
csv(in => csv(in => "file.csv"), out => *STDOUT,
2196+
csv(in => csv(in => "file.csv"), out => $*OUT,
21972197
callbacks => { before print => \&max_4_fields });
21982198

2199-
csv(in => csv(in => "file.csv"), out => *STDOUT,
2199+
csv(in => csv(in => "file.csv"), out => $*OUT,
22002200
before print => { $^row.elems > 4 and $^row.splice(4) });
22012201

22022202
This callback is not active for ["combine"](#combine).

‎doc/Text-CSV.pdf

-10 Bytes
Binary file not shown.

‎doc/Text-CSV.pod

+3-3
Original file line numberDiff line numberDiff line change
@@ -2278,7 +2278,7 @@ X<before-print>
22782278

22792279
my $idx = 1;
22802280
$csv.callbacks(before_print => { $^row[0] = $idx++ });
2281-
$csv.print(*STDOUT, [ 0, $_ ]) for @members;
2281+
$csv.print($*OUT, [ 0, $_ ]) for @members;
22822282

22832283
This callback is invoked before printing with L</print> only if no error
22842284
occurred.
@@ -2289,10 +2289,10 @@ The return code of the callback is ignored.
22892289
$r.elems > 4 and $r.splice (4);
22902290
} # max_4_fields
22912291

2292-
csv(in => csv(in => "file.csv"), out => *STDOUT,
2292+
csv(in => csv(in => "file.csv"), out => $*OUT,
22932293
callbacks => { before print => \&max_4_fields });
22942294

2295-
csv(in => csv(in => "file.csv"), out => *STDOUT,
2295+
csv(in => csv(in => "file.csv"), out => $*OUT,
22962296
before print => { $^row.elems > 4 and $^row.splice(4) });
22972297

22982298
This callback is not active for L</combine>.

‎lib/Text/CSV.pod6

+3-3
Original file line numberDiff line numberDiff line change
@@ -2279,7 +2279,7 @@ X<before-print>
22792279
22802280
my $idx = 1;
22812281
$csv.callbacks(before_print => { $^row[0] = $idx++ });
2282-
$csv.print(*STDOUT, [ 0, $_ ]) for @members;
2282+
$csv.print($*OUT, [ 0, $_ ]) for @members;
22832283
22842284
This callback is invoked before printing with L</print> only if no error
22852285
occurred.
@@ -2290,10 +2290,10 @@ The return code of the callback is ignored.
22902290
$r.elems > 4 and $r.splice (4);
22912291
} # max_4_fields
22922292
2293-
csv(in => csv(in => "file.csv"), out => *STDOUT,
2293+
csv(in => csv(in => "file.csv"), out => $*OUT,
22942294
callbacks => { before print => \&max_4_fields });
22952295
2296-
csv(in => csv(in => "file.csv"), out => *STDOUT,
2296+
csv(in => csv(in => "file.csv"), out => $*OUT,
22972297
before print => { $^row.elems > 4 and $^row.splice(4) });
22982298
22992299
This callback is not active for L</combine>.

0 commit comments

Comments
 (0)