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