[Midnightbsd-cvs] mports: Port.pm: Optimize get_ready_port to only fetch a single row from

[ctriv at midnightbsd.org]

Log Message:
-----------
Optimize get_ready_port to only fetch a single row from the DB.

Modified Files:
--------------
    mports/Tools/lib/Magus:
        Port.pm (r1.19 -> r1.20)

-------------- next part --------------
Index: Port.pm
===================================================================
RCS file: /home/cvs/mports/Tools/lib/Magus/Port.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -L Tools/lib/Magus/Port.pm -L Tools/lib/Magus/Port.pm -u -r1.19 -r1.20
--- Tools/lib/Magus/Port.pm
+++ Tools/lib/Magus/Port.pm
@@ -50,7 +50,7 @@
 
 
 __PACKAGE__->set_sql(ready_ports => 'SELECT __ESSENTIAL__ FROM ready_ports WHERE run=?');
-
+__PACKAGE__->set_sql(single_ready_port => 'SELECT __ESSENTIAL__ FROM ready_ports WHERE run=? LIMIT 1');
 
 =head2 Magus::Port->get_ready_port($run);
 
@@ -77,7 +77,7 @@
 
 sub get_ready_port {
   my ($class, $run) = @_;
-  return shift->search_ready_ports($run)->next;
+  return shift->search_single_ready_port($run)->next;
 }