From faed7a7a571d3fdd2df8857cc84682e5d586074f Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Tue, 2 Jul 2019 20:12:37 +0000
Subject: Net::Cmd: append directly to partial buf on sysread

sysread allow an offset argument to insert new data at a certain
place, use it to simplify our code, slightly.
---
 lib/Net/Cmd.pm | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/lib/Net/Cmd.pm b/lib/Net/Cmd.pm
index 2bb790d..0b1bbe1 100644
--- a/lib/Net/Cmd.pm
+++ b/lib/Net/Cmd.pm
@@ -335,24 +335,20 @@ sub getline {
   my $rin = "";
   vec($rin, $fd, 1) = 1;
 
-  my $buf;
-
   until (scalar(@{${*$cmd}{'net_cmd_lines'}})) {
     my $timeout = $cmd->timeout || undef;
     my $rout;
 
     my $select_ret = select($rout = $rin, undef, undef, $timeout);
     if ($select_ret > 0) {
-      unless (sysread($cmd, $buf = "", 1024)) {
+      unless (sysread($cmd, $partial, 1024, length($partial))) {
         my $err = $!;
         $cmd->close;
         $cmd->_set_status_closed($err);
         return;
       }
 
-      substr($buf, 0, 0) = $partial;    ## prepend from last sysread
-
-      my @buf = split(/\015?\012/, $buf, -1);    ## break into lines
+      my @buf = split(/\015?\012/, $partial, -1);    ## break into lines
 
       $partial = pop @buf;
 
-- 
cgit v1.2.3-24-ge0c7