ports/149555: japanese/p5-jcode.pl.diff Fix defined(%hash) is deprecated

[Takefu]

>Number:         149555
>Category:       ports
>Synopsis:       japanese/p5-jcode.pl.diff Fix defined(%hash) is deprecated
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Thu Aug 12 09:03:15 UTC 2010
>Closed-Date:
>Last-Modified:
>Originator:     Takefu
>Release:        
>Organization:
FOX Amateur Radio Club
>Environment:
>Description:
lang/perl5.12 problems occur in combination.
z2h_euc z2h_sjis and was out of the way to improve call and message.

# fined(%hash) is deprecated at /usr/local/lib/perl5/site_perl/5.12.1/jcode.pl line 684.
# 	(Maybe you should just omit the defined()?)
# defined(%hash) is deprecated at /usr/local/lib/perl5/site_perl/5.12.1/jcode.pl line 693.
# 	(Maybe you should just omit the defined()?)

>How-To-Repeat:
#!/usr/local/bin/perl
require "jcode.pl";
$data = "";
jcode::z2h_sjis(\$data);
exit;

>Fix:
--- p5-jcode.pl.diff begins here ---
diff -ruN /usr/ports/japanese/p5-jcode.pl/Makefile japanese/p5-jcode.pl/Makefile
--- /usr/ports/japanese/p5-jcode.pl/Makefile	2010-07-21 16:56:11.000000000 +0900
+++ japanese/p5-jcode.pl/Makefile	2010-07-29 12:51:26.000000000 +0900
@@ -7,20 +7,23 @@

 PORTNAME=	jcode.pl
 PORTVERSION=	2.13
-CATEGORIES=	japanese perl5
+PORTREVISION=	1
+CATEGORIES?=	japanese perl5
 MASTER_SITES=	ftp://ftp.iij.ad.jp/pub/IIJ/dist/utashiro/perl/ \
 		ftp://ftp.sra.co.jp/pub/lang/perl/sra-scripts/
 EXTRACT_SUFX=	# none

 MAINTAINER=	ports at FreeBSD.org
-COMMENT=	Perl5 library for Japanese character code conversion
+COMMENT?=	Perl5 library for Japanese character code conversion
+
+CONFLICTS?=	ja-jcode.pl-[0-9]*

 EXTRACT_CMD=	${CP}
 EXTRACT_BEFORE_ARGS=
 EXTRACT_AFTER_ARGS=	${WRKDIR}
-NO_WRKSUBDIR=	YES
-NO_BUILD=	YES
-USE_PERL5=	YES
+USE_PERL5=	yes
+NO_WRKSUBDIR=	yes
+NO_BUILD=	yes
 PLIST_SUB=	INSTALL_BASE=${INSTALL_BASE}

 INSTALL_BASE=	${SITE_PERL_REL}
@@ -28,10 +31,12 @@

 .include <bsd.port.pre.mk>

+.if !defined(OLD_FLAG)
 PKGNAMEPREFIX:=	${PKGNAMEPREFIX}p5-
+.endif

 do-install:
 	${MKDIR} ${INSTALL_DIR}
-	${INSTALL_DATA} ${WRKDIR}/${DISTNAME} ${INSTALL_DIR}/jcode.pl
+	${INSTALL_DATA} ${WRKDIR}/${DISTNAME} ${INSTALL_DIR}/${PORTNAME}

 .include <bsd.port.post.mk>
diff -ruN /usr/ports/japanese/p5-jcode.pl/files/patch-aa japanese/p5-jcode.pl/files/patch-aa
--- /usr/ports/japanese/p5-jcode.pl/files/patch-aa	2010-07-28 15:02:35.000000000 +0900
+++ japanese/p5-jcode.pl/files/patch-aa	2010-07-28 18:36:46.000000000 +0900
@@ -1,5 +1,5 @@
---- jcode.pl-2.13.orig	2010-07-28 15:02:11.000000000 +0900
-+++ jcode.pl-2.13	2010-07-28 15:02:23.000000000 +0900
+--- jcode.pl-2.13.orig	2010-07-28 14:46:52.000000000 +0900
++++ jcode.pl-2.13	2010-07-28 14:51:52.000000000 +0900
 @@ -681,7 +681,7 @@

  sub z2h_euc {
diff -ruN /usr/ports/japanese/p5-jcode.pl/pkg-descr japanese/p5-jcode.pl/pkg-descr
--- /usr/ports/japanese/p5-jcode.pl/pkg-descr	2010-07-21 16:56:11.000000000 +0900
+++ japanese/p5-jcode.pl/pkg-descr	2010-07-29 11:29:49.000000000 +0900
@@ -1,9 +1,8 @@
-``jcode.pl-2.x'' is a perl library for japanese character code conversion.
-It supports translation of each JIS, EUC, Shift JIS texts, and automatically
-recognizes the encode-method of the target text files.
+jcode.pl is a perl library for japanese character code conversion.
+It supports translation of each JIS, EUC, Shift JIS texts,
+and automatically recognizes the encode-method of the target text files.

 To use this, your script should load this library as
-
 + require "jcode.pl";
 or
 + require('jcode.pl');
---  p5-jcode.pl.diff ends here ---
>Release-Note:
>Audit-Trail:
>Unformatted: