diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/pods/perlform.pod')
-rw-r--r-- | Master/tlpkg/tlperl/lib/pods/perlform.pod | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/pods/perlform.pod b/Master/tlpkg/tlperl/lib/pods/perlform.pod index a2aa6588b76..b00d394296e 100644 --- a/Master/tlpkg/tlperl/lib/pods/perlform.pod +++ b/Master/tlpkg/tlperl/lib/pods/perlform.pod @@ -393,7 +393,7 @@ by checking $FORMAT_LINES_LEFT before each write() and print the footer yourself if necessary. Here's another strategy: Open a pipe to yourself, using C<open(MYSELF, "|-")> -(see L<perlfunc/"open FILEHANDLE">) and always write() to MYSELF instead of STDOUT. +(see L<perlfunc/open>) and always write() to MYSELF instead of STDOUT. Have your child process massage its STDIN to rearrange headers and footers however you like. Not very convenient, but doable. @@ -409,7 +409,7 @@ For example: @<<< @||| @>>> END - print "Wow, I just stored `$^A' in the accumulator!\n"; + print "Wow, I just stored '$^A' in the accumulator!\n"; Or to make an swrite() subroutine, which is to write() what sprintf() is to printf(), do this: |