1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-10-18 19:49:40 +00:00

Fixup an utf-8 problem

Submitted by:	too many
Obtained from:	http://rt.cpan.org/Public/Bug/Display.html?id=24835
This commit is contained in:
Mathieu Arnold 2007-02-09 16:02:06 +00:00
parent e408f5de0f
commit e7816e5b40
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=184722
2 changed files with 24 additions and 0 deletions

View File

@ -7,6 +7,7 @@
PORTNAME= p5-Net
PORTVERSION= 1.20
PORTREVISION= 1
PORTEPOCH= 1
CATEGORIES= net perl5
MASTER_SITES= ${MASTER_SITE_PERL_CPAN}
@ -32,6 +33,9 @@ MAN3= Net::Cmd.3 \
Net::Time.3 \
Net::libnetFAQ.3
post-patch:
@${RM} ${WRKSRC}/Net/Cmd.pm.orig
.include <bsd.port.pre.mk>
# Authen-SASL is not available under perl 5.005_03

View File

@ -0,0 +1,20 @@
--- Net/Cmd.pm~ Fri Oct 27 13:08:07 2006
+++ Net/Cmd.pm Fri Feb 9 16:02:10 2007
@@ -21,8 +21,6 @@
}
}
-my $doUTF8 = eval { require utf8 };
-
$VERSION = "2.27";
@ISA = qw(Exporter);
@EXPORT = qw(CMD_INFO CMD_OK CMD_MORE CMD_REJECT CMD_ERROR CMD_PENDING);
@@ -394,8 +392,6 @@
my $cmd = shift;
my $arr = @_ == 1 && ref($_[0]) ? $_[0] : \@_;
my $line = join("" ,@$arr);
-
- utf8::encode($line) if $doUTF8;
return 0 unless defined(fileno($cmd));