Patch by Sébastien Aperghis-Tramoni to avoid encoding

everything that goes through Net::Cmd as UTF-8
(regression as of Net::Cmd 2.27, see CPAN RT #24835)

p4raw-id: //depot/perl@30576

diff --git a/lib/Net/Cmd.pm b/lib/Net/Cmd.pm
index 201349f..aa1a193 100644 (file)
--- a/lib/Net/Cmd.pm
+++ b/lib/Net/Cmd.pm
@@ -21,9 +21,7 @@ BEGIN {
   }
 }
 
-my $doUTF8 = eval { require utf8 };
-
-$VERSION = "2.27";
+$VERSION = "2.27_01";
 @ISA     = qw(Exporter);
 @EXPORT  = qw(CMD_INFO CMD_OK CMD_MORE CMD_REJECT CMD_ERROR CMD_PENDING);
 
@@ -395,8 +393,6 @@ sub datasend
  my $arr = @_ == 1 && ref($_[0]) ? $_[0] : \@_;
  my $line = join("" ,@$arr);
 
- utf8::encode($line) if $doUTF8;
-
  return 0 unless defined(fileno($cmd));
 
  my $last_ch = ${*$cmd}{'net_cmd_last_ch'};