Index: head/japanese/jcode.pl/Makefile
===================================================================
--- head/japanese/jcode.pl/Makefile	(revision 468696)
+++ head/japanese/jcode.pl/Makefile	(revision 468697)
@@ -1,30 +1,34 @@
 # Created by: sada
 # $FreeBSD$
 
 PORTNAME=	jcode.pl
 PORTVERSION=	2.13
 PORTREVISION=	2
 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@FreeBSD.org
 COMMENT=	Perl library for Japanese character code conversion
 
-LICENSE=	BSD
+LICENSE=	JCODE.PL
+LICENSE_NAME=	License of jcode.pl
+LICENSE_FILE=	${FILESDIR}/LICENSE
+LICENSE_PERMS=	${_LICENSE_PERMS_DEFAULT}
 
 USES=		perl5
 USE_PERL5=	run
 NO_WRKSUBDIR=	yes
 NO_BUILD=	yes
+NO_ARCH=	yes
 EXTRACT_CMD=	${CP}
 EXTRACT_BEFORE_ARGS=	# none
 EXTRACT_AFTER_ARGS=	${WRKSRC}/${PORTNAME}
 PLIST_FILES=	${SITE_PERL_REL}/${PORTNAME}
 
 do-install:
 	@${MKDIR} ${STAGEDIR}${PREFIX}/${SITE_PERL_REL}
 	${INSTALL_DATA} ${WRKSRC}/${PORTNAME} ${STAGEDIR}${PREFIX}/${SITE_PERL_REL}
 
 .include <bsd.port.mk>
Index: head/japanese/jcode.pl/files/LICENSE
===================================================================
--- head/japanese/jcode.pl/files/LICENSE	(nonexistent)
+++ head/japanese/jcode.pl/files/LICENSE	(revision 468697)
@@ -0,0 +1,15 @@
+(Following sentences are from jcode.pl-2.13.)
+
+Copyright (c) 1995-2000 Kazumasa Utashiro <utashiro@iij.ad.jp>
+Internet Initiative Japan Inc.
+3-13 Kanda Nishiki-cho, Chiyoda-ku, Tokyo 101-0054, Japan
+
+Copyright (c) 1992,1993,1994 Kazumasa Utashiro
+Software Research Associates, Inc.
+
+Use and redistribution for ANY PURPOSE are granted as long as all
+copyright notices are retained.  Redistribution with modification
+is allowed provided that you make your modified version obviously
+distinguishable from the original one.  THIS SOFTWARE IS PROVIDED
+BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES ARE
+DISCLAIMED.

Property changes on: head/japanese/jcode.pl/files/LICENSE
___________________________________________________________________
Added: fbsd:nokeywords
## -0,0 +1 ##
+yes
\ No newline at end of property
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: svn:mime-type
## -0,0 +1 ##
+text/plain
\ No newline at end of property
Index: head/japanese/jcode.pl/files/patch-jcode.pl
===================================================================
--- head/japanese/jcode.pl/files/patch-jcode.pl	(revision 468696)
+++ head/japanese/jcode.pl/files/patch-jcode.pl	(revision 468697)
@@ -1,20 +1,20 @@
---- jcode.pl.orig	2010-07-28 14:46:52.000000000 +0900
-+++ jcode.pl	2010-07-28 14:51:52.000000000 +0900
-@@ -681,7 +681,7 @@
-
+--- jcode.pl.orig	2017-09-23 14:20:47 UTC
++++ jcode.pl
+@@ -681,7 +681,7 @@ sub __z2h_jis {
+ 
  sub z2h_euc {
      local(*s, $n) = @_;
 -    &init_z2h_euc unless defined %z2h_euc;
 +    &init_z2h_euc unless %z2h_euc;
      $s =~ s/($re_euc_c|$re_euc_kana)/
  	$z2h_euc{$1} ? ($n++, $z2h_euc{$1}) : $1
      /geo;
-@@ -690,7 +690,7 @@
-
+@@ -690,7 +690,7 @@ sub z2h_euc {
+ 
  sub z2h_sjis {
      local(*s, $n) = @_;
 -    &init_z2h_sjis unless defined %z2h_sjis;
 +    &init_z2h_sjis unless %z2h_sjis;
      $s =~ s/($re_sjis_c)/$z2h_sjis{$1} ? ($n++, $z2h_sjis{$1}) : $1/geo;
      $n;
  }