diff options
| author | Lorry Tar Creator <lorry-tar-importer@baserock.org> | 2015-02-17 17:25:57 +0000 |
|---|---|---|
| committer | <> | 2015-03-17 16:26:24 +0000 |
| commit | 780b92ada9afcf1d58085a83a0b9e6bc982203d1 (patch) | |
| tree | 598f8b9fa431b228d29897e798de4ac0c1d3d970 /lang/perl/DB_File/t | |
| parent | 7a2660ba9cc2dc03a69ddfcfd95369395cc87444 (diff) | |
| download | berkeleydb-master.tar.gz | |
Diffstat (limited to 'lang/perl/DB_File/t')
| -rw-r--r-- | lang/perl/DB_File/t/db-btree.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lang/perl/DB_File/t/db-btree.t b/lang/perl/DB_File/t/db-btree.t index 29c70a17..fb89a408 100644 --- a/lang/perl/DB_File/t/db-btree.t +++ b/lang/perl/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 ; |