This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Patch by S├ębastien Aperghis-Tramoni to avoid encoding
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 14 Mar 2007 09:43:21 +0000 (09:43 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 14 Mar 2007 09:43:21 +0000 (09:43 +0000)
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

lib/Net/Cmd.pm

index 201349f..aa1a193 100644 (file)
@@ -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'};