diff options
author | Karl Williamson <khw@cpan.org> | 2014-06-27 16:31:41 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2015-03-18 10:52:55 -0600 |
commit | d71230e7060d58db20a9853f2cbd19f150b65542 (patch) | |
tree | 5804b3c11d532e75cb0945cfbe38126b41f7e049 /dist | |
parent | 7a7edf4ae1c5c27ecd24085b6f68f5623503266e (diff) | |
download | perl-d71230e7060d58db20a9853f2cbd19f150b65542.tar.gz |
Term::Complete: Generalize for EBCDIC
By this simple change, we can avoid printing all controls except \c?.
On ASCII platforms the remaining control is DEL, which is handled above.
On EBCDIC platforms, \c? remains a problem.
But it isn't clear what to do about this anyway, as the module
interprets ^D, ^H, ^U specially as if they were typed from the keyboard,
and expects the keyboard to transmit them in a particular way, which may
not be valid for EBCDIC. No tests fail, so fixing this will have to
wait for tuits or field complaints.
Diffstat (limited to 'dist')
-rw-r--r-- | dist/Term-Complete/lib/Term/Complete.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dist/Term-Complete/lib/Term/Complete.pm b/dist/Term-Complete/lib/Term/Complete.pm index 601e495643..4d0e79ebd0 100644 --- a/dist/Term-Complete/lib/Term/Complete.pm +++ b/dist/Term-Complete/lib/Term/Complete.pm @@ -5,7 +5,7 @@ require Exporter; use strict; our @ISA = qw(Exporter); our @EXPORT = qw(Complete); -our $VERSION = '1.402'; +our $VERSION = '1.403'; # @(#)complete.pl,v1.2 (me@anywhere.EBay.Sun.COM) 09/23/91 @@ -162,7 +162,7 @@ sub Complete { }; # printable char - ord >= 32 && do { + ord >= ord(" ") && do { $return .= $_; $r++; print; |