[Midnightbsd-cvs] mports: Worker.pm: clean up a few nits.

[ctriv at midnightbsd.org]

Log Message:
-----------
clean up a few nits.

Modified Files:
--------------
    mports/Tools/lib/Magus/App/Slave:
        Worker.pm (r1.2 -> r1.3)

-------------- next part --------------
Index: Worker.pm
===================================================================
RCS file: /home/cvs/mports/Tools/lib/Magus/App/Slave/Worker.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -L Tools/lib/Magus/App/Slave/Worker.pm -L Tools/lib/Magus/App/Slave/Worker.pm -u -r1.2 -r1.3
--- Tools/lib/Magus/App/Slave/Worker.pm
+++ Tools/lib/Magus/App/Slave/Worker.pm
@@ -26,8 +26,12 @@
 	} 
 	
 	# we make sure we never have an uncaught exception!
-	my $error;
-	eval { $self->{port}->set_result_internal("Exception thrown building %s: $error", $self->port); };
+	my $error = $@;
+	eval { 
+	  my $port = $self->port;
+	  $self->log->err("Exception thrown building $port: $error");
+	  $port->set_result_internal("Exception thrown: $error");
+        };
   }
 }