cvs commit: p5ee/App-Repository/lib/App Repository.pm

cvsuser     04/11/29 08:18:55

  Modified:    App-Repository/lib/App Repository.pm
  Log:
  fixed reversed sub_exit()/sub_entry() calls
  
  Revision  Changes    Path
  1.16      +3 -3      p5ee/App-Repository/lib/App/Repository.pm
  
  Index: Repository.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-Repository/lib/App/Repository.pm,v
  retrieving revision 1.15
  retrieving revision 1.16
  diff -u -r1.15 -r1.16
  --- Repository.pm	22 Nov 2004 19:57:03 -0000	1.15
  +++ Repository.pm	29 Nov 2004 16:18:55 -0000	1.16
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: Repository.pm,v 1.15 2004/11/22 19:57:03 spadkins Exp $
  +## $Id: Repository.pm,v 1.16 2004/11/29 16:18:55 spadkins Exp $
   #############################################################################
   
   package App::Repository;
  @@ -2464,7 +2464,7 @@
   =cut
   
   sub _load_table_metadata {
  -    &App::sub_exit() if ($App::trace);
  +    &App::sub_entry if ($App::trace);
       my ($self, $table) = @_;
   
       # if it's already been loaded, don't do it again
  @@ -2537,7 +2537,7 @@
           $table_def->{primary_key} = [ split(/ *, */, $table_def->{primary_key}) ];
       }
   
  -    &App::sub_entry if ($App::trace);
  +    &App::sub_exit() if ($App::trace);
   }
   
   #############################################################################