vcs.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/InputOutput/ProhibitReadlineInForLoop.run

   1 ## name basic failures
   2 ## failures 6
   3 ## cut
   4 for my $foo (<FH>) {}
   5 for $foo (<$fh>) {}
   6 for (<>) {}
   7
   8 foreach my $foo (<FH>) {}
   9 foreach $foo (<$fh>) {}
  10 foreach (<>) {}
  11
  12 #-----------------------------------------------------------------------------
  13
  14 ## name basic passes
  15 ## failures 0
  16 ## cut
  17 for my $foo (@lines) {}
  18 while( my $foo = <> ){}
  19 while( $foo = <> ){}
  20 while( <> ){}