diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 1997-11-30 08:00:32 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 1997-11-30 08:00:32 +0000 |
| commit | 3d06de7fcff1d605886d3c63220956f7260ddb84 (patch) | |
| tree | da5aa4b971926e3ef1f9263bbdeb714053206d02 /gnu/usr.bin/perl/lib/complete.pl | |
| parent | c54c74271308a8fd18f1bc3a193343d079ebe481 (diff) | |
perl 5.004_04
Diffstat (limited to 'gnu/usr.bin/perl/lib/complete.pl')
| -rw-r--r-- | gnu/usr.bin/perl/lib/complete.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gnu/usr.bin/perl/lib/complete.pl b/gnu/usr.bin/perl/lib/complete.pl index 1e08f9145ae..539f2f77983 100644 --- a/gnu/usr.bin/perl/lib/complete.pl +++ b/gnu/usr.bin/perl/lib/complete.pl @@ -35,7 +35,7 @@ CONFIG: { sub Complete { package Complete; - local($[,$return) = 0; + local($prompt, @cmp_list, $return, @match, $l, $test, $cmp, $r); if ($_[1] =~ /^StB\0/) { ($prompt, *_) = @_; } @@ -75,7 +75,8 @@ sub Complete { # (^U) kill $_ eq $kill && do { if ($r) { - undef($r, $return); + undef $r; + undef $return; print("\r\n"); redo LOOP; } |