This is patch.2b1e to perl5.002beta1. This is simply

[p5sagit/p5-mst-13.2.git] / lib / Term / Complete.pm

diff --git a/lib/Term/Complete.pm b/lib/Term/Complete.pm
index 10b12a2..97c71fe 100644 (file)
--- a/lib/Term/Complete.pm
+++ b/lib/Term/Complete.pm
@@ -37,7 +37,7 @@ CONFIG: {
     $erase2 =   "\010";
 }
 
-sub complete {
+sub Complete {
     $prompt = shift;
     if (ref $_[0] || $_[0] =~ /^\*/) {
        @cmp_lst = sort @{$_[0]};