diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-14 23:11:05 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-14 23:11:05 +0000 |
| commit | 7b8d334a971230040a212bc5038097b3f600a094 (patch) | |
| tree | e0fd6231e06e9b8f7e54aae4cec4ead51585219a /lib/Term | |
| parent | 6ee623d521a149edc6574c512fa951a192cd086a (diff) | |
| download | perl-7b8d334a971230040a212bc5038097b3f600a094.tar.gz | |
[win32] merge change#897 from maintbranch
p4raw-link: @897 on //depot/maint-5.004/perl: f06f9b6fc5a686f0169ee2a91b32d5e7125a44ae
p4raw-id: //depot/win32/perl@974
Diffstat (limited to 'lib/Term')
| -rw-r--r-- | lib/Term/ReadLine.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Term/ReadLine.pm b/lib/Term/ReadLine.pm index 2183c8d235..83ba375742 100644 --- a/lib/Term/ReadLine.pm +++ b/lib/Term/ReadLine.pm @@ -310,7 +310,7 @@ sub ornaments { return $rl_term_set unless @_; $rl_term_set = shift; $rl_term_set ||= ',,,'; - $rl_term_set = 'us,ue,md,me' if $rl_term_set == 1; + $rl_term_set = 'us,ue,md,me' if $rl_term_set eq '1'; my @ts = split /,/, $rl_term_set, 4; eval { LoadTermCap }; unless (defined $terminal) { |