svn commit: r396017 - in head/japanese/tiarra: . files

[Hajimu UMEMOTO]

Author: ume
Date: Thu Sep  3 16:35:25 2015
New Revision: 396017
URL: https://svnweb.freebsd.org/changeset/ports/396017

Log:
  Shut up the warning messages in case of Perl 5.22.

Added:
  head/japanese/tiarra/files/patch-main__Configuration__Block.pm   (contents, props changed)
  head/japanese/tiarra/files/patch-main__Configuration__Preprocessor.pm   (contents, props changed)
  head/japanese/tiarra/files/patch-main__Tiarra__Utils__DefineHelper.pm   (contents, props changed)
Modified:
  head/japanese/tiarra/Makefile

Modified: head/japanese/tiarra/Makefile
==============================================================================
--- head/japanese/tiarra/Makefile	Thu Sep  3 16:25:37 2015	(r396016)
+++ head/japanese/tiarra/Makefile	Thu Sep  3 16:35:25 2015	(r396017)
@@ -3,7 +3,7 @@
 
 PORTNAME=	tiarra
 PORTVERSION=	20100212
-PORTREVISION=	6
+PORTREVISION=	7
 CATEGORIES=	japanese irc ipv6
 MASTER_SITES=	http://www.clovery.jp/tiarra/archive/2010/02/
 

Added: head/japanese/tiarra/files/patch-main__Configuration__Block.pm
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/japanese/tiarra/files/patch-main__Configuration__Block.pm	Thu Sep  3 16:35:25 2015	(r396017)
@@ -0,0 +1,13 @@
+Index: main/Configuration/Block.pm
+diff -u main/Configuration/Block.pm.orig main/Configuration/Block.pm
+--- main/Configuration/Block.pm.orig	2010-02-12 03:34:30.000000000 +0900
++++ main/Configuration/Block.pm	2015-09-01 16:49:33.521015928 +0900
+@@ -140,7 +140,7 @@
+ 	}
+ 	$result;
+     };
+-    (my $evaluated = $str) =~ s/\%CODE{(.*?)}EDOC\%/$eval->($1)/eg;
++    (my $evaluated = $str) =~ s/\%CODE\{(.*?)}EDOC\%/$eval->($1)/eg;
+     $evaluated;
+ }
+ 

Added: head/japanese/tiarra/files/patch-main__Configuration__Preprocessor.pm
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/japanese/tiarra/files/patch-main__Configuration__Preprocessor.pm	Thu Sep  3 16:35:25 2015	(r396017)
@@ -0,0 +1,13 @@
+Index: main/Configuration/Preprocessor.pm
+diff -u main/Configuration/Preprocessor.pm.orig main/Configuration/Preprocessor.pm
+--- main/Configuration/Preprocessor.pm.orig	2010-02-12 03:34:30.000000000 +0900
++++ main/Configuration/Preprocessor.pm	2015-09-01 16:49:03.358017196 +0900
+@@ -165,7 +165,7 @@
+ 	}
+ 	defined $result ? $result : '';
+     };
+-    $body =~ s/\%PRE{(.+?)}ERP\%/$evaluate->($1)/seg;
++    $body =~ s/\%PRE\{(.+?)}ERP\%/$evaluate->($1)/seg;
+     $body;
+ }
+ 

Added: head/japanese/tiarra/files/patch-main__Tiarra__Utils__DefineHelper.pm
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/japanese/tiarra/files/patch-main__Tiarra__Utils__DefineHelper.pm	Thu Sep  3 16:35:25 2015	(r396017)
@@ -0,0 +1,16 @@
+Index: main/Tiarra/Utils/DefineHelper.pm
+diff -u main/Tiarra/Utils/DefineHelper.pm.orig main/Tiarra/Utils/DefineHelper.pm
+--- main/Tiarra/Utils/DefineHelper.pm.orig	2010-02-12 03:34:30.000000000 +0900
++++ main/Tiarra/Utils/DefineHelper.pm	2015-09-02 01:20:26.908910808 +0900
+@@ -345,9 +345,10 @@
+ 	} else {
+ 	    @funcnames = $_;
+ 	}
++	my $j = $i;
+ 	$pkg->define_function(
+ 	    $pkg->get_package,
+-	    sub () { $i; },
++	    sub () { $j; },
+ 	    @funcnames);
+ 	++$i;
+     }