/[gentoo-x86]/perl-core/libnet/files/Net-CMD-UTF8.patch
Gentoo

Contents of /perl-core/libnet/files/Net-CMD-UTF8.patch

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations) (download) (as text)
Sun Mar 25 12:06:26 2007 UTC (13 years, 7 months ago) by mcummings
Branch: MAIN
File MIME type: text/x-diff
RT 24835, bug 165784; new libnet forces utf8 on folks where it shouldnt. Thanks for bringing it to our attention barthek.
(Portage version: 2.1.2.2)

1 diff -Naurp libnet-1.20.old/Net/Cmd.pm libnet-1.20/Net/Cmd.pm
2 --- libnet-1.20.old/Net/Cmd.pm 2006-10-27 07:08:07.000000000 -0400
3 +++ libnet-1.20/Net/Cmd.pm 2007-03-25 08:02:38.000000000 -0400
4 @@ -21,7 +21,6 @@ BEGIN {
5 }
6 }
7
8 -my $doUTF8 = eval { require utf8 };
9
10 $VERSION = "2.27";
11 @ISA = qw(Exporter);
12 @@ -395,8 +394,6 @@ sub datasend
13 my $arr = @_ == 1 && ref($_[0]) ? $_[0] : \@_;
14 my $line = join("" ,@$arr);
15
16 - utf8::encode($line) if $doUTF8;
17 -
18 return 0 unless defined(fileno($cmd));
19
20 my $last_ch = ${*$cmd}{'net_cmd_last_ch'};

  ViewVC Help
Powered by ViewVC 1.1.20