[svn:p5ee] r15074 - p5ee/trunk/App-Repository/lib/App

[spadkins]

Author: spadkins
Date: Fri Jan  6 12:46:14 2012
New Revision: 15074

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

Log:
support metadata caching on disk. (fixed dump)

Modified: p5ee/trunk/App-Repository/lib/App/Repository.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/Repository.pm     (original)
+++ p5ee/trunk/App-Repository/lib/App/Repository.pm     Fri Jan  6 12:46:14 2012
@@ -4369,6 +4369,7 @@
     $d->Indent(1);
     $d->Purity(1);
     print $fh $d->Dump();
+    print $fh "$dump_name;\n";
 
     close($fh);
     &App::sub_exit() if ($App::trace);
@@ -4704,18 +4705,11 @@
     my $table_def = $self->{table}{$table} || {};
     my $copy      = { %$table_def };
 
-    my ($key);
-    #foreach $key qw(context _repository name class) {
-    #    delete $copy->{$key};
-    #}
-    #foreach $key (keys %$copy) {
-    #    delete $copy->{$key} if ($key =~ /^db/ || $key =~ /^$name.db/);
-    #}
-
     my $d = Data::Dumper->new([ $copy ], [ $dump_name ]);
     $d->Indent(1);
     $d->Purity(1);
     print $fh $d->Dump();
+    print $fh "$dump_name;\n";
 
     close($fh);
     &App::sub_exit() if ($App::trace);