1 --- perl-5.6.0/ext/NDBM_File/Makefile.PL.nodb Tue Jul 20 19:17:56 1999
2 +++ perl-5.6.0/ext/NDBM_File/Makefile.PL Thu Mar 23 17:54:21 2000
6 LIBS => ["-L/usr/local/lib -lndbm", "-ldbm -lucb"],
7 + CCFLAGS => '-I/usr/include/db1 -Dbool=char -DHAS_BOOL',
8 MAN3PODS => {}, # Pods will be built by installman.
9 XSPROTOARG => '-noprototypes', # XXX remove later?
10 VERSION_FROM => 'NDBM_File.pm',
11 --- perl-5.6.0/hints/linux.sh.nodb Sun Mar 19 08:37:24 2000
12 +++ perl-5.6.0/hints/linux.sh Thu Mar 23 17:54:21 2000
15 # BSD compatability library no longer needed
16 # 'kaffe' has a /usr/lib/libnet.so which is not at all relevent for perl.
17 -set `echo X "$libswanted "| sed -e 's/ bsd / /' -e 's/ net / /'`
18 +set `echo X "$libswanted "| \
19 + sed -e 's/ bsd / /' \
27 --- perl-5.6.0/t/lib/ndbm.t.nodb Tue Jul 20 19:18:13 1999
28 +++ perl-5.6.0/t/lib/ndbm.t Thu Mar 23 17:54:21 2000
30 if ($#keys == 31) {print "ok 7\n";} else {print "not ok 7\n";}
34 +# stupid DB library does not support empty string as keys, so there
35 +# is nothing for perl to test here...
38 # check cache overflow and numeric keys and contents
41 print join(':',200..400) eq join(':',@foo) ? "ok 10\n" : "not ok 10\n";
43 print ($h{'foo'} eq '' ? "ok 11\n" : "not ok 11\n");
44 -print ($h{''} eq 'bar' ? "ok 12\n" : "not ok 12\n");
45 +# same thing ... we used to test for $h{''}, but DB does not allow it
46 +print ($h{' '} eq 'bar' ? "ok 12\n" : "not ok 12\n");
49 unlink 'Op.dbmx.dir', $Dfile;
50 --- perl-5.6.0/t/lib/anydbm.t.nodb Fri Mar 3 03:34:21 2000
51 +++ perl-5.6.0/t/lib/anydbm.t Thu Mar 23 17:58:01 2000
53 if ($#keys == 31) {print "ok 7\n";} else {print "not ok 7\n";}
57 +# stupid DB does not allow zero-length keys. Not perl's fault, really
58 +# so we test for $h{' '} instead of $h{''}
61 # check cache overflow and numeric keys and contents
64 print join(':',200..400) eq join(':',@foo) ? "ok 10\n" : "not ok 10\n";
66 print ($h{'foo'} eq '' ? "ok 11\n" : "not ok 11\n");
67 -if ($h{''} eq 'bar') {
68 +# stupid DB does not allow zero-length keys. Not perl's fault, really
69 +# so we test for $h{' '} instead of $h{''}
70 +if ($h{' '} eq 'bar') {
74 --- perl-5.6.0/Configure.nodb Thu Mar 23 17:54:21 2000
75 +++ perl-5.6.0/Configure Thu Mar 23 17:56:07 2000
76 @@ -12053,10 +12053,16 @@
80 + # this is really stupid, but we have to link in the -ldb to have
81 + # the above program succeed
84 if eval $compile_ok && ./try; then
88 echo "I can't use Berkeley DB with your <db.h>. I'll disable Berkeley DB." >&4
93 @@ -12099,7 +12105,7 @@
97 - if $cc $ccflags -c try.c >try.out 2>&1 ; then
98 + if $cc $ccflags -c try.c -ldb >try.out 2>&1 ; then
99 if $contains warning try.out >>/dev/null 2>&1 ; then
102 @@ -12144,7 +12150,7 @@
106 - if $cc $ccflags -c try.c >try.out 2>&1 ; then
107 + if $cc $ccflags -c try.c -ldb >try.out 2>&1 ; then
108 if $contains warning try.out >>/dev/null 2>&1 ; then