[svn:p5ee] r14579 - p5ee/trunk/App-WorkQueue/lib/App/WorkQueue

[email protected] Wed, 15 Dec 2010 11:29:57 -0800 (PST)
Newsgroups perl.cvs.p5ee
Message-ID <[email protected]>
Author: spadkins
Date: Wed Dec 15 11:29:57 2010
New Revision: 14579

Modified:
   p5ee/trunk/App-WorkQueue/lib/App/WorkQueue/Memory.pm

Log:
modified sub update to return nrows

Modified: p5ee/trunk/App-WorkQueue/lib/App/WorkQueue/Memory.pm
==============================================================================
--- p5ee/trunk/App-WorkQueue/lib/App/WorkQueue/Memory.pm	(original)
+++ p5ee/trunk/App-WorkQueue/lib/App/WorkQueue/Memory.pm	Wed Dec 15 11:29:57 2010
@@ -74,8 +74,9 @@
 sub update {
     &App::sub_entry if ($App::trace);
     my ($self, $entry, $columns, $values) = @_;
-    $self->_update_ref($entry, $columns, $values);
-    &App::sub_exit() if ($App::trace);
+    my $nrows = $self->_update_ref($entry, $columns, $values);
+    &App::sub_exit($nrows) if ($App::trace);
+    return $nrows;
 }
 
 sub num_entries {