| CC: | bug-DB_File [...] rt.cpan.org |
| Subject: | [perl #108970] [PATCH] f6722c7 fix wrong DB_File/t/db-btree.t |
| Date: | Tue, 24 Jan 2012 13:13:15 -0800 |
| To: | "OtherRecipients of perl Ticket #108970":; |
| From: | "Father Chrysostomos via RT" <perlbug-followup [...] perl.org> |
Forwarding....
On Tue Jan 24 13:07:02 2012, rurban@cpanel.net wrote:
Show quoted text
>
> This is a bug report for perl from rurban@cpanel.net,
> generated with the help of perlbug 1.39 running under perl 5.15.7.
>
> From f6722c7b0c76fd425930e632fda0224c0e27f1b2 Mon Sep 17 00:00:00 2001
> From: Reini Urban <rurban@x-ray.at>
> Date: Tue, 24 Jan 2012 15:05:43 -0600
> Subject: [PATCH] fix wrong DB_File/t/db-btree.t
>
> ---
> cpan/DB_File/t/db-btree.t | 4 ++--
> 1 files changed, 2 insertions(+), 2 deletions(-)
>
> diff --git a/cpan/DB_File/t/db-btree.t b/cpan/DB_File/t/db-btree.t
> index 29c70a1..ab02407 100644
> --- a/cpan/DB_File/t/db-btree.t
> +++ b/cpan/DB_File/t/db-btree.t
> @@ -566,9 +566,9 @@ sub ArrayCompare
>
> return 0 if @$a != @$b ;
>
> - foreach (1 .. length @$a)
> + foreach (0 .. @$a-1)
> {
> - return 0 unless $$a[$_] eq $$b[$_] ;
> + return 0 unless $$a[$_] eq $$b[$_];
> }
>
> 1 ;
--
Father Chrysostomos
---
via perlbug: queue: perl5 status: new
https://rt.perl.org:443/rt3/Ticket/Display.html?id=108970