diff options
Diffstat (limited to 'lang/perl/DB_File/t/db-btree.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 ; |