View | Details | Raw Unified | Return to bug 160174 | Differences between
and this patch

Collapse All | Expand All

(-)japanese/jcode.pl/Makefile (-7 / +8 lines)
Lines 7-32 Link Here
7
PORTNAME=	jcode.pl
7
PORTNAME=	jcode.pl
8
PORTVERSION=	2.13
8
PORTVERSION=	2.13
9
PORTREVISION=	1
9
CATEGORIES=	japanese perl5
10
CATEGORIES=	japanese perl5
10
MASTER_SITES=	ftp://ftp.iij.ad.jp/pub/IIJ/dist/utashiro/perl/ \
11
MASTER_SITES=	ftp://ftp.iij.ad.jp/pub/IIJ/dist/utashiro/perl/ \
11
		ftp://ftp.sra.co.jp/pub/lang/perl/sra-scripts/ \
12
		ftp://ftp.sra.co.jp/pub/lang/perl/sra-scripts/
12
		http://srekcah.org/jcode/
13
EXTRACT_SUFX=
13
EXTRACT_SUFX=	# none
14
MAINTAINER=	ports@FreeBSD.org
14
MAINTAINER=	ports@FreeBSD.org
15
COMMENT=	Perl library for Japanese character code conversion
15
COMMENT=	Perl library for Japanese character code conversion
16
CONFLICTS=	ja-p5-jcode.pl-[0-9]*
17
16
USE_PERL5_RUN=		yes
18
USE_PERL5_RUN=		yes
17
NO_WRKSUBDIR=		yes
19
NO_WRKSUBDIR=		yes
18
NO_BUILD=		yes
20
NO_BUILD=		yes
19
EXTRACT_CMD=		${CP}
21
EXTRACT_CMD=		${CP}
20
EXTRACT_BEFORE_ARGS=
22
EXTRACT_BEFORE_ARGS=
21
EXTRACT_AFTER_ARGS=	.
23
EXTRACT_AFTER_ARGS=	${WRKDIR}
22
24
PLIST_FILES=		${SITE_PERL_REL}/${PORTNAME}
23
PLIST_FILES=	%%SITE_PERL%%/${PORTNAME}
24
do-install:
25
do-install:
25
	${MKDIR} ${PREFIX}/${SITE_PERL_REL}/
26
	${MKDIR} ${PREFIX}/${SITE_PERL_REL}
26
	${INSTALL_DATA} ${WRKDIR}/${DISTNAME} ${PREFIX}/${SITE_PERL_REL}/${PORTNAME}
27
	${INSTALL_DATA} ${WRKDIR}/${DISTNAME} ${PREFIX}/${SITE_PERL_REL}/${PORTNAME}
27
.include <bsd.port.mk>
28
.include <bsd.port.mk>
(-)japanese/jcode.pl/files/patch-aa (+20 lines)
Line 0 Link Here
1
--- jcode.pl-2.13.orig	2010-07-28 14:46:52.000000000 +0900
2
+++ jcode.pl-2.13	2010-07-28 14:51:52.000000000 +0900
3
@@ -681,7 +681,7 @@
4
5
 sub z2h_euc {
6
     local(*s, $n) = @_;
7
-    &init_z2h_euc unless defined %z2h_euc;
8
+    &init_z2h_euc unless %z2h_euc;
9
     $s =~ s/($re_euc_c|$re_euc_kana)/
10
 	$z2h_euc{$1} ? ($n++, $z2h_euc{$1}) : $1
11
     /geo;
12
@@ -690,7 +690,7 @@
13
14
 sub z2h_sjis {
15
     local(*s, $n) = @_;
16
-    &init_z2h_sjis unless defined %z2h_sjis;
17
+    &init_z2h_sjis unless %z2h_sjis;
18
     $s =~ s/($re_sjis_c)/$z2h_sjis{$1} ? ($n++, $z2h_sjis{$1}) : $1/geo;
19
     $n;
20
 }

Return to bug 160174