1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
## name DefaultAssignment
## failures 4
## cut
while (<$fh>) {}
while (<DATA>) {}
while (<>) {}
while (<<>>) {}
## name DefaultAssignmentModifier
## failures 4
## cut
1 while <$fh>;
1 while <DATA>;
1 while <>;
1 while <<>>;
## name DefaultAssignmentFor
## failures 4
## cut
for (;<$fh>;) {}
for (;<DATA>;) {}
for (;<>;) {}
for (;<<>>;) {}
## name DefaultAssignmentReadline
## failures 8
## cut
while (readline $fh) {}
while (readline($fh)) {}
while (readline DATA) {}
while (readline(DATA)) {}
1 while readline $fh;
1 while readline($fh);
1 while readline DATA;
1 while readline(DATA);
## name DefaultAssignmentReaddir
## failures 8
## cut
while (readdir $dh) {}
while (readdir($dh)) {}
while (readdir DIR) {}
while (readdir(DIR)) {}
1 while readdir $dh;
1 while readdir($dh);
1 while readdir DIR;
1 while readdir(DIR);
## name DefaultAssignmentEach
## failures 4
## cut
while (each %hash) {}
while (each(%hash)) {}
1 while each %hash;
1 while each(%hash);
## name ExplicitAssignment
## failures 0
## cut
while (my $line = <$fh>) {}
for (;my $line = <$fh>;) {}
1 while $line = <$fh>;
while (my $line = <DATA>) {}
for (;my $line = <DATA>;) {}
1 while $line = <DATA>;
while (my $line = <>) {}
for (;my $line = <>;) {}
1 while $line = <>;
while (my $line = <<>>) {}
for (;my $line = <<>>;) {}
1 while $line = <<>>;
while (my $line = readline $fh) {}
while (my $line = readline($fh)) {}
1 while $line = readline $fh;
1 while $line = readline($fh);
while (my $dir = readdir $dh) {}
while (my $dir = readdir($dh)) {}
1 while $dir = readdir $dh;
1 while $dir = readdir($dh);
while (my $key = each %hash) {}
while (my $key = each(%hash)) {}
1 while $key = each %hash;
1 while $key = each(%hash);
|
