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

[spadkins]

Author: spadkins
Date: Sat Jan  7 07:05:42 2012
New Revision: 15075

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

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

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     Sat Jan  7 07:05:42 2012
@@ -4358,7 +4358,7 @@
     my $dump_name = "Repository__${name}";
     my $copy      = { %$self };
     my ($key);
-    foreach $key qw(context _repository name class) {
+    foreach $key qw(context _repository name class table numrows error) {
         delete $copy->{$key};
     }
     foreach $key (keys %$copy) {
@@ -4369,7 +4369,7 @@
     $d->Indent(1);
     $d->Purity(1);
     print $fh $d->Dump();
-    print $fh "$dump_name;\n";
+    print $fh "\$$dump_name;\n";
 
     close($fh);
     &App::sub_exit() if ($App::trace);
@@ -4709,7 +4709,7 @@
     $d->Indent(1);
     $d->Purity(1);
     print $fh $d->Dump();
-    print $fh "$dump_name;\n";
+    print $fh "\$$dump_name;\n";
 
     close($fh);
     &App::sub_exit() if ($App::trace);