diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2012-01-24 22:46:59 +0000 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2012-01-24 22:46:59 +0000 |
| commit | acb29889980031300ef2b368379211e68703d663 (patch) | |
| tree | 8a6309f13681c1114d499ed906a1bd1e7f4f2e1e /cpan/DB_File/t | |
| parent | da60b1cba9b0c916427ac3d445d7b8604cb52295 (diff) | |
| download | perl-acb29889980031300ef2b368379211e68703d663.tar.gz | |
Update DB_File to CPAN version 1.825
[DELTA]
1.825 24 Jan 2012
* t/db-btree.t - fix use of "length @array"
[RT ##74336]
and [perl #108970]
Diffstat (limited to 'cpan/DB_File/t')
| -rw-r--r-- | 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 29c70a1743..678393bf84 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 (1 .. @$a - 1) { - return 0 unless $$a[$_] eq $$b[$_] ; + return 0 unless $$a[$_] eq $$b[$_]; } 1 ; |