| Subject: | fail to update existent object with the same value |
"DBM::Deep: Cannot store something that is tied" error occurs while
trying to update object twice.
Reproduction scenario:
[esobchenko@jail2 ~/dev]$ cat test.pl
#!/usr/bin/perl -w
use strict;
use warnings;
use DBM::Deep;
my $db = DBM::Deep->new(file => "foo.db", locking => 1, autoflush => 1);
my $bar = bless {}, 'Foo';
$db->{foo} = $bar;
$db->{foo} = $bar; # here is the problem
[esobchenko@jail2 ~/dev]$ perl test.pl
DBM::Deep: Cannot store something that is tied. at test.pl line 13