Changeset c4efb46 for perl

Timestamp:

Jul 28, 2009, 11:20:30 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

19cc7b00

Parents:

216b1d0

Message:

Completion: Fix a min/max confusion.

This could cause completion to insert a completion in some situations
even if it was not unique.

File:

• perl/lib/BarnOwl/Completion.pm (modified) (2 diffs)

perl/lib/BarnOwl/Completion.pm

@@ -18 +18 @@
                         point_move replace_region);
 
-use List::Util qw(max first);
+use List::Util qw(min first);
 
 our %completers = ();
@@ -76 +76 @@
 sub common_prefix {
     my @words = @_;
-    my $len   = max(map {length($_)} @words);
+    my $len   = min(map {length($_)} @words);
     my $pfx = '';
     for my $i (1..$len) {