From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 14 Mar 2007 09:43:21 +0000 (+0000)
Subject: Patch by Sébastien Aperghis-Tramoni to avoid encoding
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a95ba31dfb70272b340c954f0d61c045db386ebc;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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'};