This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove some empty lines in a code example
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 20 Apr 2009 07:51:38 +0000 (09:51 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 20 Apr 2009 07:51:38 +0000 (09:51 +0200)
pod/perlsyn.pod

index e52d42c..102f38e 100644 (file)
@@ -516,24 +516,19 @@ This construct is very flexible and powerful. For example:
        when (undef) {
            say '$foo is undefined';
        }
-       
        when ("foo") {
            say '$foo is the string "foo"';
        }
-       
        when ([1,3,5,7,9]) {
            say '$foo is an odd digit';
            continue; # Fall through
        }
-       
        when ($_ < 100) {
            say '$foo is numerically less than 100';
        }
-       
        when (\&complicated_check) {
            say 'a complicated check for $foo is true';
        }
-       
        default {
            die q(I don't know what to do with $foo);
        }