vec clears tied gdbm file

[p5pRT]

Migrated from rt.perl.org#962 (status was 'resolved')

Searchable as RT962$

[p5pRT]

From nagler@bivio.com

BEGIN { $| = 1; print "1..4\n"; }
my($loaded) = 0;
END {print "not ok 1\n" unless $loaded;}
use GDBM_File ();
$loaded = 1;
print "ok 1\n";

my(%hash);
vec($hash{0}, 0, 1) = 1;
defined($hash{0}) || die "not ok 2";
print "ok 2\n";

my($file) = 'rjn$$';
tie(%hash, 'GDBM_File', $file,
  GDBM_File->GDBM_WRCREAT, 0600);
unlink($file);
my($v) = $hash{0};
vec($v, 0, 1) = 1;
$hash{0} = $v;
defined($hash{0}) || die "not ok 3";
print "ok 3\n";
untie(%hash);

my($file) = 'rjn$$';
tie(%hash, 'GDBM_File', $file,
  GDBM_File->GDBM_WRCREAT, 0600);
unlink($file);
vec($hash{0}, 0, 1) = 1;
defined($hash{0}) || die "not ok 4";
print "ok 4\n";
__END__