Permalink
Browse files

Prepared CPAN release v0.01_004 Dev.

  • Loading branch information...
1 parent aaabe86 commit 141746ff779cddec185ebfc1006da8c4fc3a0765 @daoswald committed Apr 27, 2012
Showing with 19 additions and 10 deletions.
  1. +13 −3 Changes
  2. +1 −1 META.json
  3. +1 −1 META.yml
  4. +1 −1 README
  5. +3 −4 lib/List/BinarySearch.pm
View
16 Changes
@@ -1,11 +1,13 @@
Revision history for List-BinarySearch
-0.01_001 4-23-2010
+0.01_001 4-23-2012
+ - Beta testing. API may change.
- Developer's release.
- Initial release to CPAN.
- Unstable -- Seeking smoke test results.
-0.01_002 4-25-2010 01:00am PDT
+0.01_002 4-25-2012 01:00am PDT
+ - Beta testing. API may change.
- Developer's release.
- Fixed a coderef detection bug in bsearch_list().
- Completed 11-search.t tests.
@@ -14,6 +16,14 @@ Revision history for List-BinarySearch
- List/BinarySearch.pm is now Perl::Critic level 2 compliant.
- Test suite is Perl::Critic level 4 compliant.
-0.01_003 4-25-2010 09:40am PDT
+0.01_003 4-25-2012 09:40am PDT
+ - Beta testing. API may change.
- Removed //= from bsearch_array() to reestablish backward compatibility
with Perl 5.8.0 and older.
+
+0.01_004 4-27-2012 01:23am PDT
+ - Beta testing. API may change.
+ - Broke compatibility with older versions:
+ - Changed bsearch_array() to bsearch_arrayref()
+ - Added bsearch_transform_arrayref(), and supporting POD and tests.
+ - Added a few more tests to 11-search.t.
View
@@ -37,5 +37,5 @@
}
},
"release_status" : "testing",
- "version" : "0.01_003"
+ "version" : "0.01_004"
}
View
@@ -19,4 +19,4 @@ no_index:
- inc
requires:
Scalar::Util: 0
-version: 0.01_003
+version: 0.01_004
View
2 README
@@ -2,7 +2,7 @@ List-BinarySearch
Perform a binary search on a flat list or an array passed by reference.
-v0.01_003 is a developer's release.
+v0.01_004 is a developer's release.
INSTALLATION
View
@@ -25,12 +25,12 @@ List::BinarySearch - Binary Search a sorted list or array.
=head1 VERSION
-Version 0.01_003
+Version 0.01_004
Developer's Release
=cut
-our $VERSION = '0.01_003';
+our $VERSION = '0.01_004';
$VERSION = eval $VERSION; ## no critic (eval,version)
=head1 SYNOPSIS
@@ -276,8 +276,7 @@ sub bsearch_list {
: sub { $_[0] cmp $_[1] };
}
- my $min = 0;
- my $max = $#_;
+ my( $min, $max ) = ( 0, $#_ );
while ( $max > $min ) {
my $mid = int( ( $min + $max ) / 2 );

0 comments on commit 141746f

Please sign in to comment.