From:	spadkins@cvs.perl.org	Date:	Thu Aug  7 11:28:35 2008
Subject:	[svn:p5ee] r11640 - p5ee/trunk/App-Repository/lib/App/Repository

Author: spadkins
Date: Thu Aug  7 10:28:34 2008
New Revision: 11640

Modified:
   p5ee/trunk/App-Repository/lib/App/Repository/MySQL.pm

Log:
small modification to call App::sub_exit before returning in _load_key_table_metadata

Modified: p5ee/trunk/App-Repository/lib/App/Repository/MySQL.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/Repository/MySQL.pm	(original)
+++ p5ee/trunk/App-Repository/lib/App/Repository/MySQL.pm	Thu Aug  7 10:28:34 2008
@@ -474,9 +474,15 @@
     &App::sub_entry if ($App::trace);
     my ($self, $table) = @_;
 
-    return if (! $table);
+    if (! $table) {
+        &App::sub_exit() if ($App::trace);
+        return;
+    }
     my $table_def = $self->{table}{$table};
-    return if (! $table_def);
+    if (! $table_def) {
+        &App::sub_exit() if ($App::trace);
+        return;
+    }
     my $dbh = $self->{dbh};
 
     # if not defined at all, try to get it from the database