From 2c90d6eff7c577e47b450e8fd54f8bd9287f5ca9 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Mon, 9 Jul 2018 11:23:40 +0200
Subject: [PATCH] fixed a few deprecation warnings
---
textarchive/lib/TA/ObjReg.pm | 12 ++++++------
textarchive/lib/md5cat.pm | 2 +-
2 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/textarchive/lib/TA/ObjReg.pm b/textarchive/lib/TA/ObjReg.pm
index 93a61d8..d411486 100644
--- a/textarchive/lib/TA/ObjReg.pm
+++ b/textarchive/lib/TA/ObjReg.pm
@@ -157,7 +157,7 @@ sub get_project
print "new seq: ", main::Dumper ($seq);
# if ($be eq 'MongoDB')
# {
-# $obj->{'_maint'}->insert ( { 'an' => 'seq', 'av' => $seq } );
+# $obj->{'_maint'}->insert_one ( { 'an' => 'seq', 'av' => $seq } );
# }
# else
# {
@@ -279,7 +279,7 @@ sub save
}
# print "new_reg: ", main::Dumper ($new_reg);
- $obj->{'_cat'}->update ($search, $new_reg, { 'upsert' => 1 } );
+ $obj->{'_cat'}->replace_one ($search, $new_reg, { 'upsert' => 1 } );
}
}
@@ -295,7 +295,7 @@ sub mdb_get_seq_for_key
return $kv->{'seq'} if (defined ($kv));
$s->{'seq'}= my $seq= $obj->next_seq ();
- $k->insert ($s);
+ $k->insert_one ($s);
$seq;
}
@@ -373,7 +373,7 @@ sub load_single_toc
my $cache= shift; # TODO: what is that intended for??
my $path_list= shift;
- # print __LINE__, " load_single_toc: store=[$store] path_list=[$path_list]\n";
+ # print __LINE__, ' ', scalar localtime(time()), " load_single_toc: store=[$store] path_list=[$path_list]\n";
if ((my $be= $reg->{'cfg'}->{'backend'}) eq 'TA::Hasher')
{
my $c= $reg->{'proj_cat'};
@@ -657,7 +657,7 @@ sub remove_from_store
{
my ($id_str, $path)= @$item;
print "drop: key=[$id_str] store=[$store] path=[$path]\n";
- $_cat->remove ( { 'key' => $id_str, 'type' => $objreg->{'key'},
+ $_cat->remove_one ( { 'key' => $id_str, 'type' => $objreg->{'key'},
'store' => $store, 'path' => $path } );
}
return {}; # TODO: TA::Hasher variant returns dropped items
@@ -905,7 +905,7 @@ sub _save_seq
}
else
{
- $reg->{'_maint'}->update ( { 'an' => 'seq' }, { 'an' => 'seq', 'av' => $reg->{'seq'} }, { 'upsert' => 1 } );
+ $reg->{'_maint'}->replace_one ( { 'an' => 'seq' }, { 'an' => 'seq', 'av' => $reg->{'seq'} }, { 'upsert' => 1 } );
}
}
diff --git a/textarchive/lib/md5cat.pm b/textarchive/lib/md5cat.pm
index cb8a2dc..7f2fbb5 100644
--- a/textarchive/lib/md5cat.pm
+++ b/textarchive/lib/md5cat.pm
@@ -134,7 +134,7 @@ sub read_flist
my $md5cat= shift;
my $fnm= shift;
- print "reading reference list: [$fnm]\n";
+ print scalar localtime(time()), " reading reference list: [$fnm]\n";
unless (open (FI, $fnm))
{
print __LINE__, " could not open '$fnm'!\n";
--
GitLab