develooper Front page | perl.perl5.porters | Postings from October 2001

RE: Report /pro/3gl/CPAN/perl-current@11726

Thread Previous
From:
Paul Marquess
Date:
October 13, 2001 05:31
Subject:
RE: Report /pro/3gl/CPAN/perl-current@11726
Message ID:
AIEAJICLCBDNAAOLLOKLIEEJDCAA.Paul_Marquess@Yahoo.co.uk
From: H.Merijn Brand [mailto:h.m.brand@hccnet.nl]

> On Wed 29 Aug 2001 16:07, "Paul Marquess"
> <Paul_Marquess@Yahoo.co.uk> wrote:
> > > BTW Do you want me to upgrade to 3.3.11 or `fix' this thingy first?
> >
> > Can you hold off upgrading for the moment please?
>
> No I could not :( it's 3.3.11 now
>
> But OTOH, it didn't fix the problem
>
> ext/DB_File/t/db-btree..............FAILED at test 79
>
> after next change
> --8<---
> --- /l1/pro/3gl/CPAN/perl-current/ext/DB_File/t/db-btree.t
> Mon Oct  8 14:59:54 2001
> +++ /i2/pro/3gl/CPAN/perl-current/ext/DB_File/t/db-btree.t
> Thu Oct 11 16:43:39 2001
> @@ -457,6 +457,7 @@
>  ok(77, scalar $YY->get_dup('Unknown') == 0 );
>  ok(78, scalar $YY->get_dup('Smith') == 1 );
>  ok(79, scalar $YY->get_dup('Wall') == 4 );
> +system "db_stat -d $Dfile >&2";
>
>  # now in list context
>  my @unknown = $YY->get_dup('Unknown') ;
> @@ -470,6 +471,7 @@
>  my %wall ;
>  @wall{@wall} = @wall ;
>  ok(82, (@wall == 4 && $wall{'Larry'} && $wall{'Stone'} &&
> $wall{'Brick'}) );
> +system "db_stat -d $Dfile >&2";
>  }
>
>  # hash
> -->8---
>
> I get
>
> i2:/pro/3gl/CPAN/perl-current 117 > ./perl -Ilib
> ext/DB_File/t/db-btree.t | grep not
> not ok 79
> 53162   Btree magic number.
> 8       Btree version number.
> Flags:
> 2       Minimum keys per-page.
> 4096    Underlying database page size.
> 1       Number of levels in the tree.
> 0       Number of unique keys in the tree.
> 0       Number of data items in the tree.
> 0       Number of tree internal pages.
> 0       Number of bytes free in tree internal pages (0% ff).
> 1       Number of tree leaf pages.
> 4070    Number of bytes free in tree leaf pages (1% ff).
> 0       Number of tree duplicate pages.
> 0       Number of bytes free in tree duplicate pages (0% ff).
> 0       Number of tree overflow pages.
> 0       Number of bytes free in tree overflow pages (0% ff).
> 0       Number of pages on the free list.
> not ok 82
> 53162   Btree magic number.
> 8       Btree version number.
> Flags:
> 2       Minimum keys per-page.
> 4096    Underlying database page size.
> 1       Number of levels in the tree.
> 0       Number of unique keys in the tree.
> 0       Number of data items in the tree.
> 0       Number of tree internal pages.
> 0       Number of bytes free in tree internal pages (0% ff).
> 1       Number of tree leaf pages.
> 4070    Number of bytes free in tree leaf pages (1% ff).
> 0       Number of tree duplicate pages.
> 0       Number of bytes free in tree duplicate pages (0% ff).
> 0       Number of tree overflow pages.
> 0       Number of bytes free in tree overflow pages (0% ff).
> 0       Number of pages on the free list.
> not ok 85
> not ok 150
> not ok 151
> not ok 152
> not ok 153
> i2:/pro/3gl/CPAN/perl-current 118 >

Aha! The "Flags" line is empty in both your calls to db_stat and all the
"not ok" tests above are testing duplicates.

Somehow the duplicate flag isn't getting communicated properly from DB_File
to Berkeley DB or your particular build on AIX breakes Berkeley DB. What do
you get if you run this?

   perl -Mblib -MDB_File -e 'print "R_DUP is ". R_DUP . "\n" '

Paul


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com


Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About