Attachment 118015 Details for Bug 160174 – ja-jcode.pl.patch

[patch] ja-jcode.pl.patch

ja-jcode.pl.patch (text/plain), 1.93 KB, created by takefu on 2011-08-25 08:50:09 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: takefu

Created: 2011-08-25 08:50:09 UTC

Size: 1.93 KB

patch

obsolete

>diff -ruN /usr/ports/japanese/jcode.pl/Makefile japanese/jcode.pl/Makefile
>--- /usr/ports/japanese/jcode.pl/Makefile	2011-05-30 10:51:40.000000000 +0900
>+++ japanese/jcode.pl/Makefile	2011-08-24 15:10:04.000000000 +0900
>@@ -7,26 +7,27 @@
>
> 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/
>-EXTRACT_SUFX=	# none
>+		ftp://ftp.sra.co.jp/pub/lang/perl/sra-scripts/
>+EXTRACT_SUFX=
>
> MAINTAINER=	ports@FreeBSD.org
> COMMENT=	Perl library for Japanese character code conversion
>
>+CONFLICTS=	ja-p5-jcode.pl-[0-9]*
>+
> USE_PERL5_RUN=		yes
> NO_WRKSUBDIR=		yes
> NO_BUILD=		yes
> EXTRACT_CMD=		${CP}
> EXTRACT_BEFORE_ARGS=
>-EXTRACT_AFTER_ARGS=	.
>-
>-PLIST_FILES=	%%SITE_PERL%%/${PORTNAME}
>+EXTRACT_AFTER_ARGS=	${WRKDIR}
>+PLIST_FILES=		${SITE_PERL_REL}/${PORTNAME}
>
> do-install:
>-	${MKDIR} ${PREFIX}/${SITE_PERL_REL}/
>+	${MKDIR} ${PREFIX}/${SITE_PERL_REL}
> 	${INSTALL_DATA} ${WRKDIR}/${DISTNAME} ${PREFIX}/${SITE_PERL_REL}/${PORTNAME}
>
> .include <bsd.port.mk>
>diff -ruN /usr/ports/japanese/jcode.pl/files/patch-aa japanese/jcode.pl/files/patch-aa
>--- /usr/ports/japanese/jcode.pl/files/patch-aa	1970-01-01 09:00:00.000000000 +0900
>+++ japanese/jcode.pl/files/patch-aa	2010-10-08 12:19:58.000000000 +0900
>@@ -0,0 +1,20 @@
>+--- 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 {
>+     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;
>+ }

Actions: View | Diff

Attachments on bug 160174: 118015 | 118016