Net::Cmd

- Map \n's in commands to " "

1 files changed, 2 insertions, 2 deletions

diff --git a/Net/Cmd.pm b/Net/Cmd.pm
index 7b6bc94..ba71d75 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.14";
+$VERSION = "2.15";
 @ISA     = qw(Exporter);
 @EXPORT  = qw(CMD_INFO CMD_OK CMD_MORE CMD_REJECT CMD_ERROR CMD_PENDING);
 
@@ -168,7 +168,7 @@ sub command
   {
    local $SIG{PIPE} = 'IGNORE';
 
-   my $str =  join(" ",@_) . "\015\012";
+   my $str =  join(" ", map { tr/\n/ /; $_; } @_) . "\015\012";
    my $len = length $str;
    my $swlen;