From 0a26d8269de811ac52450fcb411ebac7cab1d382 Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 18 Aug 2000 14:19:01 +0000 Subject: [PATCH] removed calls to $dbm->del_dup from DXUser.pm --- Changes | 4 +++- perl/DXUser.pm | 14 ++++++++------ 2 files changed, 11 insertions(+), 7 deletions(-) diff --git a/Changes b/Changes index f20c0910..f10d76fe 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,7 @@ 18Aug00======================================================================= -1. added a couple of changes for perl 5.6 +1. added a couple of changes for perl 5.6.0 +2. removed del_dup from DXUser for earlier versions of DB '1.85' (ie real ones +not 2.x versions in 1.85 compatibility mode). 15Aug00======================================================================= 1. added 1.25 of the admin manual html 14Aug00======================================================================= diff --git a/perl/DXUser.pm b/perl/DXUser.pm index ff45336f..0785d16b 100644 --- a/perl/DXUser.pm +++ b/perl/DXUser.pm @@ -209,9 +209,10 @@ sub put confess "Trying to put nothing!" unless $self && ref $self; my $call = $self->{call}; # delete all instances of this - for ($dbm->get_dup($call)) { - $dbm->del_dup($call, $_); - } +# for ($dbm->get_dup($call)) { +# $dbm->del_dup($call, $_); +# } + $dbm->del($call); delete $self->{annok} if $self->{annok}; delete $self->{dxok} if $self->{dxok}; $dbm->put($call, $self->encode); @@ -255,9 +256,10 @@ sub del my $self = shift; my $call = $self->{call}; # delete all instances of this - for ($dbm->get_dup($call)) { - $dbm->del_dup($call, $_); - } +# for ($dbm->get_dup($call)) { +# $dbm->del_dup($call, $_); +# } + $dbm->del($call); } # -- 2.43.0