projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e69b2b4
)
removed calls to $dbm->del_dup from DXUser.pm
author
minima
<minima>
Fri, 18 Aug 2000 14:19:01 +0000
(14:19 +0000)
committer
minima
<minima>
Fri, 18 Aug 2000 14:19:01 +0000
(14:19 +0000)
Changes
patch
|
blob
|
history
perl/DXUser.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index f20c0910fc44cdad6683f601db00772606f79baf..f10d76fe5a40550e7fb7e1acad769a8ab899de15 100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,5
+1,7
@@
18Aug00=======================================================================
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=======================================================================
15Aug00=======================================================================
1. added 1.25 of the admin manual html
14Aug00=======================================================================
diff --git
a/perl/DXUser.pm
b/perl/DXUser.pm
index ff45336f30b6732d765004e1de513c3f6b8ff76f..0785d16b2c1b1a6c1945ef41cc67a074b0a5dbbb 100644
(file)
--- 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
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);
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
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);
}
#
}
#