File tree Expand file tree Collapse file tree 1 file changed +2
-5
lines changed Expand file tree Collapse file tree 1 file changed +2
-5
lines changed Original file line number Diff line number Diff line change @@ -135,8 +135,6 @@ sub process_args {
135
135
my ( $class , @args ) = @_ ;
136
136
137
137
my @unittabs ;
138
- my $USAGE ;
139
-
140
138
while (@args and $args [0] =~ / ^-/ ) {
141
139
my $flag = shift @args ;
142
140
if ($flag =~ / ^-(f|-file)?$ / ) {
@@ -146,11 +144,11 @@ sub process_args {
146
144
exit 0;
147
145
} else {
148
146
warn " Unknown flag: $flag .\n " ;
149
- $USAGE ++ ;
147
+ $class -> usage() ;
150
148
}
151
149
}
152
150
153
- $class -> usage() if $USAGE || @args == 1 || @args > 2;
151
+ $class -> usage() if @args == 1 || @args > 2;
154
152
155
153
@unittabs = $class -> env_unittabs unless @unittabs ;
156
154
@unittabs = $class -> default_unittabs unless @unittabs ;
@@ -160,7 +158,6 @@ sub process_args {
160
158
161
159
sub read_unittab {
162
160
my ( $class , $file ) = @_ ;
163
- my $read_unittab = 0;
164
161
165
162
my ( $name , $fh ) = do {
166
163
if ( defined $file and -e $file ) {
You can’t perform that action at this time.
0 commit comments