From: Graham Knop <haarg@haarg.org>
Date: Wed, 15 May 2013 15:31:09 +0000 (-0400)
Subject: fix module name determination
X-Git-Tag: v1.003000~60
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bbecfc66129adc94aa52f336689d49751b4cbd12;p=gitmo%2FMoo.git

fix module name determination
---

diff --git a/xt/test-my-dependents.t b/xt/test-my-dependents.t
index b7efc66..0892038 100644
--- a/xt/test-my-dependents.t
+++ b/xt/test-my-dependents.t
@@ -81,10 +81,10 @@ for my $hit (@{ $res->{hits}{hits} }) {
     if $dist =~ /^(?:Task|Bundle|Acme)-/;
 
   my $module = (sort { length $a <=> length $b || $a cmp $b } do {
-    if (my $provides = $_->{fields}{provides}) {
+    if (my $provides = $hit->{fields}{provides}) {
       ref $provides ? @$provides : ($provides);
     }
-    elsif (my $provides = $_->{fields}{'metadata.provides'}) {
+    elsif (my $provides = $hit->{fields}{'metadata.provides'}) {
       keys %$provides;
     }
     else {
@@ -113,7 +113,7 @@ elsif ( $ENV{MOO_TEST_MD} ne 'all' ) {
   my @chosen = split /,/, $ENV{MOO_TEST_MD};
   my %modules = map { $_ => 1 } @modules;
   if (my @unknown = grep { !$modules{$_} } @chosen) {
-      die "Unknown modules: @unknown";
+    die "Unknown modules: @unknown";
   }
   @modules = @chosen;
 }