[Midnightbsd-cvs] mports [18849] trunk/Tools/lib/Magus/Index.pm: oops these are hash refs

[laffer1 at midnightbsd.org]

Revision: 18849
          http://svnweb.midnightbsd.org/mports/?rev=18849
Author:   laffer1
Date:     2015-05-09 03:12:44 -0400 (Sat, 09 May 2015)
Log Message:
-----------
oops these are hash refs

Modified Paths:
--------------
    trunk/Tools/lib/Magus/Index.pm

Modified: trunk/Tools/lib/Magus/Index.pm
===================================================================
--- trunk/Tools/lib/Magus/Index.pm	2015-05-09 07:07:39 UTC (rev 18848)
+++ trunk/Tools/lib/Magus/Index.pm	2015-05-09 07:12:44 UTC (rev 18849)
@@ -96,17 +96,17 @@
     my $port = Magus::Port->retrieve($id) || die "Got an invalid port in the depends list! ($id)";
 
     for (@$depends) {
-      my $depend = Magus::Port->retrieve(run => $run, name => $_->name);
+      my $depend = Magus::Port->retrieve(run => $run, name => $_->{name});
       
       if (!$depend) {
-        warn "\tMissing depend for $port: $_->name\n";
-        $port->set_result_fail(qq(depend "$_->name" does not exist.));
+        warn "\tMissing depend for $port: $_->{name}\n";
+        $port->set_result_fail(qq(depend "$_->{name}" does not exist.));
         next PORT;
       }
       
       $port->add_to_depends({ 
         dependency => $depend,
-	type => $_->type
+	type => $_->{type}
       });    
     }    
   }