Net::Cmd

- fix getline not to drop blank lines

1 files changed, 3 insertions, 5 deletions

diff --git a/Net/Cmd.pm b/Net/Cmd.pm
index 1dae8e8..e6870e7 100644
--- a/Net/Cmd.pm
+++ b/Net/Cmd.pm
@@ -13,7 +13,7 @@ use strict;
 use vars qw(@ISA @EXPORT $VERSION);
 use Carp;
 
-$VERSION = "2.16";
+$VERSION = "2.17";
 @ISA     = qw(Exporter);
 @EXPORT  = qw(CMD_INFO CMD_OK CMD_MORE CMD_REJECT CMD_ERROR CMD_PENDING);
 
@@ -239,15 +239,13 @@ sub getline
 
      substr($buf,0,0) = $partial;        ## prepend from last sysread
 
-     my @buf = split(/\015?\012/, $buf);        ## break into lines
+     my @buf = split(/\015?\012/, $buf, -1);        ## break into lines
 
      $partial = length($buf) == 0 || substr($buf, -1, 1) eq "\012"
                 ? ''
                   : pop(@buf);
 
-     map { $_ .= "\n" } @buf;
-
-     push(@{${*$cmd}{'net_cmd_lines'}},@buf);
+     push(@{${*$cmd}{'net_cmd_lines'}}, map { "$_\n" } @buf);
 
     }
    else