[interchange-cvs] interchange - racke modified lib/Vend/Dispatch.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Thu Jul 27 07:45:21 EDT 2006
User: racke
Date: 2006-07-27 11:45:21 GMT
Modified: lib/Vend Dispatch.pm
Log:
log error before removing flag to preserve error text
Revision Changes Path
1.73 +5 -3 interchange/lib/Vend/Dispatch.pm
rev 1.73, prev_rev 1.72
Index: Dispatch.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Dispatch.pm,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -r1.72 -r1.73
--- Dispatch.pm 27 Jul 2006 10:34:26 -0000 1.72
+++ Dispatch.pm 27 Jul 2006 11:45:21 -0000 1.73
@@ -1,6 +1,6 @@
# Vend::Dispatch - Handle Interchange page requests
#
-# $Id: Dispatch.pm,v 1.72 2006/07/27 10:34:26 racke Exp $
+# $Id: Dispatch.pm,v 1.73 2006/07/27 11:45:21 racke Exp $
#
# Copyright (C) 2002-2006 Interchange Development Group
# Copyright (C) 2002 Mike Heins <mike at perusion.net>
@@ -26,7 +26,7 @@
package Vend::Dispatch;
use vars qw($VERSION);
-$VERSION = substr(q$Revision: 1.72 $, 10);
+$VERSION = substr(q$Revision: 1.73 $, 10);
use POSIX qw(strftime);
use Vend::Util;
@@ -811,9 +811,11 @@
if ($@) {
# job terminated due to an error
$errors = 1;
+
+ logError ("Job group=%s pid=$$ terminated with an error: %s", $job || 'INTERNAL', $@);
+
# remove flag for this job
Vend::Server::flag_job($$, $cat, 'furl');
- logError ("Job group=%s pid=$$ terminated with an error: %s", $job || 'INTERNAL', $@);
}
if ($trackid) {
More information about the interchange-cvs
mailing list