From d7d229ca2bce7b9d256bfc97963adfa2a4fc48eb Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Sun, 15 Feb 2015 13:20:32 +0100
Subject: [PATCH] diagnostic output; the collection should be indexed by path
---
textarchive/lib/TA/ObjReg.pm | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/textarchive/lib/TA/ObjReg.pm b/textarchive/lib/TA/ObjReg.pm
index 1fc35eb..e0f867f 100644
--- a/textarchive/lib/TA/ObjReg.pm
+++ b/textarchive/lib/TA/ObjReg.pm
@@ -622,10 +622,12 @@ sub remove_from_store
}
elsif ($be eq 'MongoDB')
{
+ my $_cat= $objreg->{'_cat'};
foreach my $item (@$drop_list)
{
my ($id_str, $path)= @$item;
- $objreg->{'_cat'}->remove ( { 'key' => $id_str, 'type' => $objreg->{'key'},
+ print "drop: key=[$id_str] store=[$store] path=[$path]\n";
+ $_cat->remove ( { 'key' => $id_str, 'type' => $objreg->{'key'},
'store' => $store, 'path' => $path } );
}
return {}; # TODO: TA::Hasher variant returns dropped items
--
GitLab