In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/f343f96080e78c71ab2469cb962e36ef6f25bf85?hp=06aa495b2e26cd6963648651410909a6682df5b9>
- Log ----------------------------------------------------------------- commit f343f96080e78c71ab2469cb962e36ef6f25bf85 Author: Ken Williams <[email protected]> Date: Tue Aug 11 11:25:07 2009 -0500 Removed '...' ellipses from docs about '...' flip-flop operator ----------------------------------------------------------------------- Summary of changes: pod/perlop.pod | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) diff --git a/pod/perlop.pod b/pod/perlop.pod index 23f62e0..1df9fcb 100644 --- a/pod/perlop.pod +++ b/pod/perlop.pod @@ -602,10 +602,10 @@ Examples: As a scalar operator: if (101 .. 200) { print; } # print 2nd hundred lines, short for - # if ($. == 101 .. $. == 200) ... + # if ($. == 101 .. $. == 200) { print; } next LINE if (1 .. /^$/); # skip header lines, short for - # ... if ($. == 1 .. /^$/); + # next LINE if ($. == 1 .. /^$/); # (typically in a loop labeled LINE) s/^/> / if (/^$/ .. eof()); # quote body @@ -615,9 +615,9 @@ As a scalar operator: $in_header = 1 .. /^$/; $in_body = /^$/ .. eof; if ($in_header) { - # ... + # do something } else { # in body - # ... + # do something else } } continue { close ARGV if eof; # reset $. each file -- Perl5 Master Repository
