[FAILURE t/lib/db-hash.t #31 5.005_60] R_NOOVERWRITE unsuccessful

[p5pRT]

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

Searchable as RT1183$

[p5pRT]

From @schwern

lib/anydbm #12 is the Berkeley DB 2 null key thing again. That I know
should fail.

lib/db-btree #36 and lib/db-hash #31 are tests to see if R_NOOVERWRITE
works. Apparently not.

I wrote a quick one-liner to test​:
./perl -Ilib -MFcntl -MDB_File -wle '$X = tie(%h, "DB_File","Dfile", O_RDWR|O_CREAT, 0640, $DB_BTREE) || die $!; $status = $X->put( "x", "newvalue", R_NOOVERWRITE) ; print $status'
Name "main​::h" used only once​: possible typo at -e line 1.
0

./perl -Ilib -MFcntl -MDB_File -wle '$X = tie(%h, "DB_File","Dfile", O_RDWR|O_CREAT, 0640) || die $!; $status = $X->put( "x", "newvalue", R_NOOVERWRITE) ; print $status'
Name "main​::h" used only once​: possible typo at -e line 1.
0

I also tested against my copy of 5.005_03 with the same results.

However, I just remade 5.005_03 and ran test on it and it passed
everything but db-btree and db-hash.

5.005_60 was compiled with DB 2.4.14. The system is an up-to-date
Debian Potato.

./perl -Ilib -V (5.005_60)

Summary of my perl5 (revision 5.0 version 5 subversion 60) configuration​:
  Platform​:
  osname=linux, osvers=2.2.10, archname=i686-linux
  uname='linux athens 2.2.10 #3 smp mon aug 2 16​:48​:09 edt 1999 i686 unknown '
  config_args=''
  hint=recommended, useposix=true, d_sigaction=define
  usethreads=undef useperlio=undef d_sfio=undef
  use64bits=undef usemultiplicity=undef
  Compiler​:
  cc='cc', optimize='-g', gccversion=2.95 19990728 (release)
  cppflags='-Dbool=char -DHAS_BOOL -DDEBUGGING -DDEBUGGING_MSTATS -DDEBUGGING_OPS'
  ccflags ='-Dbool=char -DHAS_BOOL -DDEBUGGING -DDEBUGGING_MSTATS -DDEBUGGING_OPS'
  stdchar='char', d_stdstdio=define, usevfork=false
  intsize=4, longsize=4, ptrsize=4, doublesize=8
  d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
  alignbytes=4, usemymalloc=y, prototype=define
  Linker and Libraries​:
  ld='cc', ldflags =' -L/usr/local/lib'
  libpth=/usr/local/lib /lib /usr/lib
  libs=-lnsl -lndbm -lgdbm -ldbm -ldb -ldl -lm -lrt -lc -lposix -lcrypt
  libc=/lib/libc-2.1.2.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
  cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'

Characteristics of this binary (from libperl)​:
  Compile-time options​: DEBUGGING
  Built under linux
  Compiled at Aug 6 1999 23​:43​:33
  @​INC​:
  lib
  /usr/local/perl5.005_60/lib/i686-linux
  /usr/local/perl5.005_60/lib
  /usr/local/perl5.005_60/lib/site_perl/5.00560/i686-linux
  /usr/local/perl5.005_60/lib/site_perl
  .

perl -V (5.005_03)

Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration​:
  Platform​:
  osname=linux, osvers=2.2.7, archname=i686-linux
  uname='linux athens 2.2.7 #2 smp mon may 10 23​:17​:01 edt 1999 i686 unknown '
  hint=recommended, useposix=true, d_sigaction=define
  usethreads=undef useperlio=undef d_sfio=undef
  Compiler​:
  cc='gcc', optimize='-O6', gccversion=egcs-2.91.66 19990314 (egcs-1.1.2 release)
  cppflags='-Dbool=char -DHAS_BOOL -I/usr/local/include'
  ccflags ='-Dbool=char -DHAS_BOOL -I/usr/local/include'
  stdchar='char', d_stdstdio=undef, usevfork=false
  intsize=4, longsize=4, ptrsize=4, doublesize=8
  d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
  alignbytes=4, usemymalloc=y, prototype=define
  Linker and Libraries​:
  ld='gcc', ldflags =' -L/usr/local/lib'
  libpth=/usr/local/lib /lib /usr/lib
  libs=-lnsl -lndbm -lgdbm -ldbm -ldb -ldl -lm -lc -lposix -lcrypt
  libc=, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
  cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'

Characteristics of this binary (from libperl)​:
  Built under linux
  Compiled at Jul 29 1999 00​:29​:00
  @​INC​:
  /usr/lib/perl5/i686-linux
  /usr/lib/perl5
  /usr/lib/perl5/site_perl/5.005/i686-linux
  /usr/lib/perl5/site_perl/5.005
  .

[p5pRT]

From @pmqs

From​: schwern@​pobox.com [mailto​:schwern@​pobox.com]

lib/anydbm..........FAILED at test 12
lib/db-btree........FAILED at test 36
lib/db-hash.........FAILED at test 31

lib/anydbm #12 is the Berkeley DB 2 null key thing again. That I know
should fail.

lib/db-btree #36 and lib/db-hash #31 are tests to see if R_NOOVERWRITE
works. Apparently not.

I wrote a quick one-liner to test​:
./perl -Ilib -MFcntl -MDB_File -wle '$X = tie(%h,
"DB_File","Dfile", O_RDWR|O_CREAT, 0640, $DB_BTREE) || die
$!; $status = $X->put( "x", "newvalue", R_NOOVERWRITE) ;
print $status'
Name "main​::h" used only once​: possible typo at -e line 1.
0

./perl -Ilib -MFcntl -MDB_File -wle '$X = tie(%h,
"DB_File","Dfile", O_RDWR|O_CREAT, 0640) || die $!; $status =
$X->put( "x", "newvalue", R_NOOVERWRITE) ; print $status'
Name "main​::h" used only once​: possible typo at -e line 1.
0

I also tested against my copy of 5.005_03 with the same results.

However, I just remade 5.005_03 and ran test on it and it passed
everything but db-btree and db-hash.

Known problem with DB_File 1.68. Fixed in DB_File 1.70

Paul

[p5pRT]

From @tobez

On Sat, Aug 07, 1999 at 01​:01​:35AM -0400, schwern@​pobox.com wrote​:

lib/db-btree........FAILED at test 36
lib/db-hash.........FAILED at test 31

lib/db-btree #36 and lib/db-hash #31 are tests to see if R_NOOVERWRITE
works. Apparently not.

See
http​://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/1999-08/msg00112.html

Cheers,
--
Anton Berezin <tobez@​plab.ku.dk>
The Protein Laboratory, University of Copenhagen