ports/121172: [patch] Silence warning about UTF7

[Alex Kapranoff]

>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 at 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: