@@ -10,8 +10,9 @@ use Data::Dump qw( pp ); my $cfg = Config::Any->load_files({ files => \@ARGV, use_ext => 1 }); -for (@$cfg) { - my ($filename, $config) = each %$_; - print "Got configuration from file '$filename':\n", pp($config), "\n"; +for my $c (@$cfg) { + while (my ($filename, $config) = each %$c) { + print "Got configuration from file '$filename':\n", pp($config), "\n"; + } } bin/x-perl-check-config ccb4495e2da1b415b620762a21de9b821cb2358c Pedro Melo melo@simplicidade.org http://github.com/melo/scripts/commit/fdafc036cb1a7e5c16bcd3e4d83f41eff7c7a420 fdafc036cb1a7e5c16bcd3e4d83f41eff7c7a420 2009-10-12T09:23:43-07:00 2009-10-12T09:23:43-07:00 Make sure we show all files we imported Signed-off-by: Pedro Melo <melo@simplicidade.org> 41a88f04ebe8724810c155deff93eab6de4353de Pedro Melo melo@simplicidade.org