diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-17 04:11:40 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-17 04:11:40 +0000 |
| commit | 2ab1b4853ed375afa5dbf2299430175699d0452d (patch) | |
| tree | d9ac5b12358c3411eb3e2838392de90f805197be | |
| parent | 9fcdcf62629082be5a88c14d24a5546ea958b0f7 (diff) | |
| download | perl-2ab1b4853ed375afa5dbf2299430175699d0452d.tar.gz | |
silence -w noises (suggested by Greg Bacon)
p4raw-id: //depot/perl@2003
| -rw-r--r-- | lib/Term/Complete.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lib/Term/Complete.pm b/lib/Term/Complete.pm index 275aadeb65..f26be779db 100644 --- a/lib/Term/Complete.pm +++ b/lib/Term/Complete.pm @@ -13,8 +13,8 @@ Term::Complete - Perl word completion module =head1 SYNOPSIS - $input = complete('prompt_string', \@completion_list); - $input = complete('prompt_string', @completion_list); + $input = Complete('prompt_string', \@completion_list); + $input = Complete('prompt_string', @completion_list); =head1 DESCRIPTION @@ -74,6 +74,9 @@ CONFIG: { sub Complete { my($prompt, @cmp_list, $return, @match, $l, $test, $cmp, $r); + $return = ""; + $r = 0; + $prompt = shift; if (ref $_[0] || $_[0] =~ /^\*/) { @cmp_lst = sort @{$_[0]}; @@ -113,8 +116,8 @@ sub Complete { # (^U) kill $_ eq $kill && do { if ($r) { - undef $r; - undef $return; + $r = 0; + $return = ""; print("\r\n"); redo LOOP; } |