mirror of
https://git.FreeBSD.org/ports.git
synced 2024-11-20 00:21:35 +00:00
- Add a patch to fix deprecated defined(%hash) issue
PR: ports/160174 Submitted by: Takefu <takefu_AT_airport_DOT_fm>
This commit is contained in:
parent
abbef0cfab
commit
f2e2d2e607
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=282895
@ -7,10 +7,10 @@
|
||||
|
||||
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
|
||||
@ -20,13 +20,12 @@ 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_BEFORE_ARGS= # none
|
||||
EXTRACT_AFTER_ARGS= ${WRKDIR}/${PORTNAME}
|
||||
PLIST_FILES= ${SITE_PERL_REL}/${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>
|
||||
|
20
japanese/jcode.pl/files/patch-jcode.pl
Normal file
20
japanese/jcode.pl/files/patch-jcode.pl
Normal file
@ -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;
|
||||
}
|
Loading…
Reference in New Issue
Block a user