Displaying 1 result from an estimated 1 matches for "gdbm_wrcreat".
2015 Jan 16
0
gdbm update and GDBM_File
...6.4.i686
output of script with 1.8.0-37:
> Adding data to tie
> gdbm store returned -1, errno 0, key "1" at ./t.pl line 11.
thanks
stijn
>>> SCRIPT
#!/usr/bin/perl
use GDBM_File;
my $file = "/tmp/x.db";
my %out;
tie(%out, 'GDBM_File', $file, &GDBM_WRCREAT, 0644)
or print "can't tie $file DB: $!";
print "Adding data to tie\n";
$out{1}=2;
print "Going to untie\n";
untie(%out) or print "can't untie $file DB: $!";
<<<< SCRIPT