diff --git a/Votify.pm b/Votify.pm index 8e0fe1a..d8c7d22 100644 --- a/Votify.pm +++ b/Votify.pm @@ -84,9 +84,14 @@ sub get_elections_list { substr($_, 0, 1) ne "."; } grep { my $valid_election_dir = validate_election_dir($_); + print "$_ is a valid_election_dir\n" if defined $valid_election_dir; defined $valid_election_dir; } readdir D; closedir D; + print "These are the contents of the elections array:\n"; + foreach (@elections) { + print "$_\n"; + } return @elections; }