diff options
Diffstat (limited to 'pod/perltie.pod')
-rw-r--r-- | pod/perltie.pod | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/pod/perltie.pod b/pod/perltie.pod index 9ee5b2c487..162272bd74 100644 --- a/pod/perltie.pod +++ b/pod/perltie.pod @@ -900,12 +900,14 @@ C<syswrite> function. X<PRINT> This method will be triggered every time the tied handle is printed to -with the C<print()> function. -Beyond its self reference it also expects the list that was passed to -the print function. +with the C<print()> or C<say()> functions. Beyond its self reference +it also expects the list that was passed to the print function. sub PRINT { $r = shift; $$r++; print join($,,map(uc($_),@_)),$\ } +C<say()> acts just like C<print()> except $\ will be localized to C<\n> so +you need do nothing special to handle C<say()> in C<PRINT()>. + =item PRINTF this, LIST X<PRINTF> |