diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-14 09:43:21 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-14 09:43:21 +0000 |
| commit | a95ba31dfb70272b340c954f0d61c045db386ebc (patch) | |
| tree | 274602d0dbeda95befc6b5a2a98dc81ddb50719e /lib/Net | |
| parent | 85dd5c8b1ea878e2c60e931a7dfea76be9cfe46d (diff) | |
| download | perl-a95ba31dfb70272b340c954f0d61c045db386ebc.tar.gz | |
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
Diffstat (limited to 'lib/Net')
| -rw-r--r-- | lib/Net/Cmd.pm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lib/Net/Cmd.pm b/lib/Net/Cmd.pm index 201349f98f..aa1a1934b3 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'}; |