Date: Thu, 28 Feb 2008 16:35:28 +0300 (MSK) From: Alex Kapranoff <kappa@rambler-co.ru> To: FreeBSD-gnats-submit@FreeBSD.org Subject: ports/121172: [patch] Silence warning about UTF7 Message-ID: <20080228133528.552FB42FB@capella.park.rambler.ru> Resent-Message-ID: <200802281350.m1SDo1lj040341@freefall.freebsd.org>
next in thread | raw e-mail | index | archive | help
>Number: 121172
>Category: ports
>Synopsis: [patch] Silence warning about UTF7
>Confidential: no
>Severity: non-critical
>Priority: high
>Responsible: freebsd-ports-bugs
>State: open
>Quarter:
>Keywords:
>Date-Required:
>Class: sw-bug
>Submitter-Id: current-users
>Arrival-Date: Thu Feb 28 13:50:00 UTC 2008
>Closed-Date:
>Last-Modified:
>Originator: Alex Kapranoff
>Release: FreeBSD 5.2-CURRENT i386
>Organization:
Rambler
>Environment:
FreeBSD capella.park.rambler.ru 6.1-PRERELEASE FreeBSD 6.1-PRERELEASE #0: Fri Mar 17 16:20:26 MSK 2006 root@capella.park.rambler.ru:/usr/obj/usr/src/sys/CAPELLA2 i386
>Description:
Using UTF7 emits warning about mismatched prototypes.
>How-To-Repeat:
>Fix:
This is already patched in perl 5.10, but 5.8 will still be in
production for several years.
diff -ruN /usr/ports/lang/perl5.8/files/patch-UTF7.pm ./files/patch-UTF7.pm
--- /usr/ports/lang/perl5.8/files/patch-UTF7.pm Thu Jan 1 03:00:00 1970
+++ ./files/patch-UTF7.pm Thu Feb 28 16:30:50 2008
@@ -0,0 +1,11 @@
+--- ext/Encode/lib/Encode/Unicode/UTF7.pm.orig Thu Feb 28 16:24:31 2008
++++ ext/Encode/lib/Encode/Unicode/UTF7.pm Thu Feb 28 16:24:46 2008
+@@ -51,7 +51,7 @@
+ return $bytes;
+ }
+
+-sub decode{
++sub decode($$;$){
+ my ($obj, $bytes, $chk) = @_;
+ my $len = length($bytes);
+ my $str = "";
>Release-Note:
>Audit-Trail:
>Unformatted:
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20080228133528.552FB42FB>