summaryrefslogtreecommitdiff
path: root/dist
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2014-06-27 16:31:41 -0600
committerKarl Williamson <khw@cpan.org>2015-03-18 10:52:55 -0600
commitd71230e7060d58db20a9853f2cbd19f150b65542 (patch)
tree5804b3c11d532e75cb0945cfbe38126b41f7e049 /dist
parent7a7edf4ae1c5c27ecd24085b6f68f5623503266e (diff)
downloadperl-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.pm4
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;