Fixing error declaring variable.
This commit is contained in:
parent
f39c13edfa
commit
e420cdeaa3
@ -72,7 +72,10 @@ sub _getopt {
|
||||
sub run {
|
||||
my $self = shift;
|
||||
if ( $self->_options->{clean} ) {
|
||||
my %test_files_success_status;
|
||||
tie %test_files_success_status, 'DB_File', $db_file;
|
||||
%test_files_success_status = ();
|
||||
untie %test_files_success_status;
|
||||
}
|
||||
for my $test_file ( @{ $self->{test_files} } ) {
|
||||
if ( $self->_test_already_succeded($test_file) ) {
|
||||
|
Loading…
Reference in New Issue
Block a user