Author: spadkins
Date: Wed Dec 15 11:28:51 2010
New Revision: 14578
Modified:
p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm
Log:
Added check for table
Modified: p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm
==============================================================================
--- p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm (original)
+++ p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm Wed Dec 15 11:28:51 2010
@@ -467,8 +467,8 @@
my ($self) = @_;
my $entry = undef;
die "acquire() not implemented";
- &App::sub_exit($entry) if ($App::trace);
- return($entry);
+ &App::sub_exit($entry) if ($App::trace);
+ return($entry);
}
sub _acquire_in_mem {
@@ -958,7 +958,8 @@
}
}
- &App::sub_exit() if ($App::trace);
+ &App::sub_exit(1) if ($App::trace);
+ return 1;
}
sub _maintain_status_counts {
@@ -1489,7 +1490,7 @@
&App::sub_entry if ($App::trace);
my ($self) = @_;
my $colidx = $self->{colidx};
- if (!$colidx) {
+ if (!$colidx && $self->{table}) {
my $columns = $self->{columns} || die "columns of the queue elements
must be supplied in order to know the column indexes";
$colidx = {};
for (my $i = 0; $i <= $#$columns; $i++) {
