From e7816e5b404a28d6ff848565aa56fb50e7cb13b1 Mon Sep 17 00:00:00 2001
From: Mathieu Arnold <mat@FreeBSD.org>
Date: Fri, 9 Feb 2007 16:02:06 +0000
Subject: Fixup an utf-8 problem

Submitted by:	too many
Obtained from:	http://rt.cpan.org/Public/Bug/Display.html?id=24835
---
 net/p5-Net/Makefile               |  4 ++++
 net/p5-Net/files/patch-Net_Cmd.pm | 20 ++++++++++++++++++++
 2 files changed, 24 insertions(+)
 create mode 100644 net/p5-Net/files/patch-Net_Cmd.pm

(limited to 'net/p5-Net')

diff --git a/net/p5-Net/Makefile b/net/p5-Net/Makefile
index 0d3041cef59c..97e758da6e59 100644
--- a/net/p5-Net/Makefile
+++ b/net/p5-Net/Makefile
@@ -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
diff --git a/net/p5-Net/files/patch-Net_Cmd.pm b/net/p5-Net/files/patch-Net_Cmd.pm
new file mode 100644
index 000000000000..d81d9bb18f3b
--- /dev/null
+++ b/net/p5-Net/files/patch-Net_Cmd.pm
@@ -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));
+ 
-- 
cgit v1.2.3