Index: head/japanese/jcode.pl/Makefile
===================================================================
--- head/japanese/jcode.pl/Makefile	(revision 282894)
+++ head/japanese/jcode.pl/Makefile	(revision 282895)
@@ -1,32 +1,31 @@
 # New ports collection makefile for:	jcode.pl
 # Date created:		20 February 1998
 # Whom:			sada
 #
 # $FreeBSD$
 #
 
 PORTNAME=	jcode.pl
 PORTVERSION=	2.13
+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/ \
-		http://srekcah.org/jcode/
+		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
 
 USE_PERL5_RUN=		yes
 NO_WRKSUBDIR=		yes
 NO_BUILD=		yes
 EXTRACT_CMD=		${CP}
-EXTRACT_BEFORE_ARGS=
-EXTRACT_AFTER_ARGS=	.
+EXTRACT_BEFORE_ARGS=	# none
+EXTRACT_AFTER_ARGS=	${WRKDIR}/${PORTNAME}
+PLIST_FILES=		${SITE_PERL_REL}/${PORTNAME}
 
-PLIST_FILES=	%%SITE_PERL%%/${PORTNAME}
-
 do-install:
-	${MKDIR} ${PREFIX}/${SITE_PERL_REL}/
-	${INSTALL_DATA} ${WRKDIR}/${DISTNAME} ${PREFIX}/${SITE_PERL_REL}/${PORTNAME}
+	${MKDIR} ${PREFIX}/${SITE_PERL_REL}
+	${INSTALL_DATA} ${WRKDIR}/${PORTNAME} ${PREFIX}/${SITE_PERL_REL}/
 
 .include <bsd.port.mk>

Property changes on: head/japanese/jcode.pl/Makefile
___________________________________________________________________
Modified: cvs2svn:cvs-rev
## -1 +1 ##
-1.12
\ No newline at end of property
+1.13
\ No newline at end of property
Index: head/japanese/jcode.pl/files/patch-jcode.pl
===================================================================
--- head/japanese/jcode.pl/files/patch-jcode.pl	(nonexistent)
+++ head/japanese/jcode.pl/files/patch-jcode.pl	(revision 282895)
@@ -0,0 +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 @@
+
+ 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 @@
+
+ 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;
+ }

Property changes on: head/japanese/jcode.pl/files/patch-jcode.pl
___________________________________________________________________
Added: cvs2svn:cvs-rev
## -0,0 +1 ##
+1.1
\ No newline at end of property
Added: fbsd:nokeywords
## -0,0 +1 ##
+yes
\ No newline at end of property