X-Git-Url: http://git.maemo.org/git/?p=dh-make-perl;a=blobdiff_plain;f=dev%2Fi386%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Ft%2FInputOutput%2FProhibitReadlineInForLoop.run;fp=dev%2Fi386%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Ft%2FInputOutput%2FProhibitReadlineInForLoop.run;h=5fc6bf615f87f31c75aaf102966f475372534f90;hp=0000000000000000000000000000000000000000;hb=da95c414033799c3a62606f299c3c00b5c77ca11;hpb=2d38e14bacbb15b98e539843a40b3c52a225f493

diff --git a/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/InputOutput/ProhibitReadlineInForLoop.run b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/InputOutput/ProhibitReadlineInForLoop.run
new file mode 100644
index 0000000..5fc6bf6
--- /dev/null
+++ b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/InputOutput/ProhibitReadlineInForLoop.run
@@ -0,0 +1,20 @@
+## name basic failures
+## failures 6
+## cut
+for my $foo (<FH>) {}
+for $foo (<$fh>) {}
+for (<>) {}
+
+foreach my $foo (<FH>) {}
+foreach $foo (<$fh>) {}
+foreach (<>) {}
+
+#-----------------------------------------------------------------------------
+
+## name basic passes
+## failures 0
+## cut
+for my $foo (@lines) {}
+while( my $foo = <> ){}
+while( $foo = <> ){}
+while( <> ){}