Quote:
Originally Posted by Klug |
Three points!!! ;-)
Problem solved.
----
--- Net/Cmd.pm~ Fri Oct 27 13:08:07 2006
+++ Net/Cmd.pm Thu Feb 8 17:32:52 2007
@@ -22,6 +22,4 @@
}
-my $doUTF8 = eval { require utf8 };
-
$VERSION = "2.27";
@ISA = qw(Exporter);
@@ -395,6 +393,4 @@
my $arr = @_ == 1 && ref($_[0]) ? $_[0] : \@_;
my $line = join("" ,@$arr);
-
- utf8::encode($line) if $doUTF8;
return 0 unless defined(fileno($cmd));
----