-require File::Util; -my($f) = File::Util->new(); -my @config_files = $f->list_dir( 't/ini' , '--pattern=\.ini$' ); +my @config_files = glob("t/ini/*.ini"); foreach my $config_file (@config_files){ + $config_file =~ s/t\/ini\///;