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
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
## name BarewordOpen
## failures 12
## cut
open FILE;
open FILE, "<$filename";
open FILE, '<', $filename;
open(FILE, '<', $filename);
open FH, '>', $some_file;
open FH, '>', $some_file or die;
open(FH, '>', $some_file);
open(FH, '>', $some_file) or die;
open FH, ">$some_file";
open FH, ">$some_file" or die;
open(FH, ">$some_file");
open(FH, ">$some_file") or die;
## name BarewordOpenBuiltin
## failures 0
## cut
open STDOUT;
open STDIN, "<$filename";
open(STDERR, '>', $filename);
open STDIN, '>', $some_file;
open STDIN, '>', $some_file or die;
open(STDIN, '>', $some_file);
open(STDIN, '>', $some_file) or die;
open STDIN, ">$some_file";
open STDIN, ">$some_file" or die;
open(STDIN, ">$some_file");
open(STDIN, ">$some_file") or die;
open STDOUT, '>', $some_file;
open STDOUT, '>', $some_file or die;
open(STDOUT, '>', $some_file);
open(STDOUT, '>', $some_file) or die;
open STDOUT, ">$some_file";
open STDOUT, ">$some_file" or die;
open(STDOUT, ">$some_file");
open(STDOUT, ">$some_file") or die;
open STDERR, '>', $some_file;
open STDERR, '>', $some_file or die;
open(STDERR, '>', $some_file);
open(STDERR, '>', $some_file) or die;
open STDERR, ">$some_file";
open STDERR, ">$some_file" or die;
open(STDERR, ">$some_file");
open(STDERR, ">$some_file") or die;
## name VariableOpen
## failures 0
## cut
open $fh, '>', $some_file;
open $fh, '>', $some_file or die;
open($fh, '>', $some_file);
open($fh, '>', $some_file) or die;
open my $fh, '>', $some_file;
open my $fh, '>', $some_file or die;
open(my $fh, '>', $some_file);
open(my $fh, '>', $some_file) or die;
open our $fh, '>', $some_file;
open our $fh, '>', $some_file or die;
open(our $fh, '>', $some_file);
open(our $fh, '>', $some_file) or die;
open local $foo{fh}, '>', $some_file;
open local $foo{fh}, '>', $some_file or die;
open(local $foo{fh}, '>', $some_file);
open(local $foo{fh}, '>', $some_file) or die;
open local $foo{fh}, ">$some_file";
open local $foo{fh}, ">$some_file" or die;
open(local $foo{fh}, ">$some_file");
open(local $foo{fh}, ">$some_file") or die;
open local *STDIN, '>', $some_file;
open local *STDIN, '>', $some_file or die;
open(local *STDIN, '>', $some_file);
open(local *STDIN, '>', $some_file) or die;
open local *STDIN, ">$some_file";
open local *STDIN, ">$some_file" or die;
open(local *STDIN, ">$some_file");
open(local *STDIN, ">$some_file") or die;
open local *STDOUT, '>', $some_file;
open local *STDOUT, '>', $some_file or die;
open(local *STDOUT, '>', $some_file);
open(local *STDOUT, '>', $some_file) or die;
open local *STDOUT, ">$some_file";
open local *STDOUT, ">$some_file" or die;
open(local *STDOUT, ">$some_file");
open(local *STDOUT, ">$some_file") or die;
open local *STDERR, '>', $some_file;
open local *STDERR, '>', $some_file or die;
open(local *STDERR, '>', $some_file);
open(local *STDERR, '>', $some_file) or die;
open local *STDERR, ">$some_file";
open local *STDERR, ">$some_file" or die;
open(local *STDERR, ">$some_file");
open(local *STDERR, ">$some_file") or die;
## name BarewordPipe
## failures 6
## cut
pipe READ, my $write;
pipe my $read, WRITE;
pipe READ, WRITE;
pipe(READ, WRITE);
## name BarewordPipeBuiltin
## failures 0
## cut
pipe DATA, my $write;
## name LexicalPipe
## failures 0
## cut
pipe my $read, my $write;
pipe(my $read, my $write);
|
