summaryrefslogtreecommitdiff
path: root/perl5
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2020-04-15 00:03:26 -0700
committerSean Whitton <spwhitton@spwhitton.name>2020-04-15 00:03:26 -0700
commit644dffd08e6ea54b1727c8387401dcf2cb1ccd6a (patch)
tree39053dfd7fc501c7ba559403d6a077a27c7551e4 /perl5
parent07543134aec05945b27f036def1a3a9eb95f2079 (diff)
downloaddotfiles-644dffd08e6ea54b1727c8387401dcf2cb1ccd6a.tar.gz
better variable names
Diffstat (limited to 'perl5')
-rw-r--r--perl5/Local/Interactive.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl5/Local/Interactive.pm b/perl5/Local/Interactive.pm
index 631e4c6a..c70d37a4 100644
--- a/perl5/Local/Interactive.pm
+++ b/perl5/Local/Interactive.pm
@@ -220,10 +220,10 @@ sub _sysptycap_tty {
my $rin = "";
vec($rin, fileno $slave, 1) = 1;
if (select $rin, undef, undef, 1) {
- my $nchars = sysread $slave, my $chars, 8192;
- last if defined $nchars and $nchars == 0;
- print $chars;
- $output .= $chars;
+ my $nbytes = sysread $slave, my $bytes, 8192;
+ last if defined $nbytes and $nbytes == 0;
+ print $bytes;
+ $output .= $bytes;
} else {
# Since there was no new output, see if child needs
# reaping, and end the loop if all children have died.