In perl.git, the branch autarch/modernize-perlopentut has been updated <http://perl5.git.perl.org/perl.git/commitdiff/fc64ffef4f59c4e5ca2d6463a166c941048eb355?hp=9f270de5a93b57136e8ccaf108bd1c1d3bc8df93>
- Log ----------------------------------------------------------------- commit fc64ffef4f59c4e5ca2d6463a166c941048eb355 Author: Dave Rolsky <[email protected]> Date: Fri Feb 8 10:33:40 2013 -0600 Fix some lines podcheck thinks are too long They're not longer than 79 chars but podcheck complains anyway. M pod/perlopentut.pod commit eb2d3acd2c7e9091499b15a0457c75f3e407801c Author: Dave Rolsky <[email protected]> Date: Fri Feb 8 10:30:10 2013 -0600 Remove ancient TODO from perlopentut M pod/perlopentut.pod ----------------------------------------------------------------------- Summary of changes: pod/perlopentut.pod | 10 ++++++---- 1 files changed, 6 insertions(+), 4 deletions(-) diff --git a/pod/perlopentut.pod b/pod/perlopentut.pod index ebac1df..faaebe9 100644 --- a/pod/perlopentut.pod +++ b/pod/perlopentut.pod @@ -19,9 +19,12 @@ will be implicitly closed first. For example: - open(my $info, '<', 'datafile') or die("can't open datafile: $!"); - open(my $results, '>', 'runstats') or die("can't open runstats: $!"); - open(my $log, '>>', 'logfile ') or die("can't open logfile: $!"); + open(my $info, '<', 'datafile') + or die("can't open datafile: $!"); + open(my $results, '>', 'runstats') + or die("can't open runstats: $!"); + open(my $log, '>>', 'logfile ') + or die("can't open logfile: $!"); The other important thing to notice is that, just as in the shell, any whitespace before or after the filename is ignored. @@ -546,7 +549,6 @@ you'll get warnings more like Some warning at scriptname line 29, </etc/motd> line 7. -TODO: move to perlhysterical =head2 Single Argument Open Remember how we said that Perl's open took two arguments? That was a -- Perl5 Master Repository
