[Midnightbsd-cvs] mports: Port.pm: bug fixes.

[ctriv at midnightbsd.org]

Log Message:
-----------
bug fixes.

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

-------------- next part --------------
Index: Port.pm
===================================================================
RCS file: /home/cvs/mports/Tools/lib/Magus/Port.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -L Tools/lib/Magus/Port.pm -L Tools/lib/Magus/Port.pm -u -r1.16 -r1.17
--- Tools/lib/Magus/Port.pm
+++ Tools/lib/Magus/Port.pm
@@ -210,11 +210,12 @@
   
   $self->events->delete_all;
 
-  if (my $log = Magus::Log->retrive(port => $self)) {
+  if (my $log = Magus::Log->retrieve(port => $self)) {
     $log->delete;
   }
 
   $self->status('untested');
+  $self->update;
 }
 
 =head2 $port->log