diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2020-04-15 00:03:26 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-04-15 00:03:26 -0700 |
commit | 644dffd08e6ea54b1727c8387401dcf2cb1ccd6a (patch) | |
tree | 39053dfd7fc501c7ba559403d6a077a27c7551e4 /perl5 | |
parent | 07543134aec05945b27f036def1a3a9eb95f2079 (diff) | |
download | dotfiles-644dffd08e6ea54b1727c8387401dcf2cb1ccd6a.tar.gz |
better variable names
Diffstat (limited to 'perl5')
-rw-r--r-- | perl5/Local/Interactive.pm | 8 |
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. |