[monafont] - Rebuild for newest VLGothic - Patch for the behavior change of "split" on perl 5.12
Mamoru Tasaka
mtasaka at fedoraproject.org
Wed Sep 8 21:53:35 UTC 2010
commit fbc98ec8a4b4e040deadb3d06e20ab0cf91d07b3
Author: Mamoru Tasaka <tasaka1 at localhost.localdomain>
Date: Thu Sep 9 06:53:40 2010 +0900
- Rebuild for newest VLGothic
- Patch for the behavior change of "split" on perl 5.12
monafont-2.90-perl512-split.patch | 150 +++++++++++++++++++++++++++++++++++++
monafont.spec | 14 +++-
2 files changed, 161 insertions(+), 3 deletions(-)
---
diff --git a/monafont-2.90-perl512-split.patch b/monafont-2.90-perl512-split.patch
new file mode 100644
index 0000000..d73ed64
--- /dev/null
+++ b/monafont-2.90-perl512-split.patch
@@ -0,0 +1,150 @@
+--- monafont-2.90/ttftools/jis2ascii.debug 2002-09-15 06:07:03.000000000 +0900
++++ monafont-2.90/ttftools/jis2ascii 2010-09-09 06:23:07.000000000 +0900
+@@ -11,7 +11,7 @@
+
+ while(<>) {
+ chop;
+- split(/\s+/);
+- my $x = eval($_[0]);
+- printf "0x%04x\t%d\n", $x, $_[1] if ($x < 256);
++ @line = split(/\s+/);
++ my $x = eval(@line[0]);
++ printf "0x%04x\t%d\n", $x, @line[1] if ($x < 256);
+ }
+--- monafont-2.90/ttftools/jis2sjis.debug 2002-09-15 06:07:03.000000000 +0900
++++ monafont-2.90/ttftools/jis2sjis 2010-09-09 06:23:53.000000000 +0900
+@@ -11,8 +11,8 @@
+
+ while(<>) {
+ chop;
+- split(/\s+/);
+- my $x = eval($_[0]);
++ @line = split(/\s+/);
++ my $x = eval($line[0]);
+ if (256 <= $x) {
+ # not optimized for readers' convenience.
+ my $c = (int($x / 256) - 0x21) * (0x7e-0x21+1) + (($x % 256) - 0x21);
+--- monafont-2.90/ttftools/jis2unicode.debug 2003-09-10 11:54:11.000000000 +0900
++++ monafont-2.90/ttftools/jis2unicode 2010-09-09 03:37:03.000000000 +0900
+@@ -8061,12 +8061,12 @@
+ } else {
+ while(<>) {
+ chop;
+- split(/\s+/);
+- $x = $map{jis2sjis(eval($_[0]))};
++ @list = split(/\s+/);
++ $x = $map{jis2sjis(eval(@list[0]))};
+ if ($x) {
+- printf "0x%04x\t%d\n", $x, $_[1];
++ printf "0x%04x\t%d\n", $x, @list[1];
+ } else {
+- print STDERR "jis2unicode: warning: undefined mapping: $_[0]\n";
++ print STDERR "jis2unicode: warning: undefined mapping: @list[0]\n";
+ }
+ }
+ }
+--- monafont-2.90/ttftools/lib_form.pl.debug 2002-09-15 06:07:03.000000000 +0900
++++ monafont-2.90/ttftools/lib_form.pl 2010-09-09 05:19:01.000000000 +0900
+@@ -18,12 +18,12 @@
+ foreach $_ (split("\n", $_[0])) {
+ my $c;
+ $c = $1 if (s/(\#.*)$//);
+- split(/\s+/);
+- if (2 <= @_) {
+- push(@form_fields, $_[1]);
++ @list = split(/\s+/);
++ if (2 <= @list) {
++ push(@form_fields, @list[1]);
+ push(@form_comments, $c);
+- $_[1] =~ tr/A-Z/a-z/;
+- $form_types{$_[1]} = $_[0];
++ @list[1] =~ tr/A-Z/a-z/;
++ $form_types{@list[1]} = @list[0];
+ }
+ }
+ 1;
+@@ -101,9 +101,9 @@
+ open(IN, $ff) || die("open: $ff: $!");
+ %form_val = ();
+ while($_ = getline(IN)) {
+- split(/\s+/);
+- next if (@_ < 2);
+- make_field1(@_);
++ @oneline = split(/\s+/);
++ next if (@oneline < 2);
++ make_field1(@oneline);
+ }
+ close(IN);
+ foreach my $x (@extra) {
+--- monafont-2.90/ttftools/make_EBSC.debug 2003-08-06 01:26:37.000000000 +0900
++++ monafont-2.90/ttftools/make_EBSC 2010-09-09 06:28:14.000000000 +0900
+@@ -28,8 +28,8 @@
+ open(IN, $ARGV[0]) || die("open: $ARGV[0]: $!");
+ %metric = ();
+ while($_ = getline(IN)) {
+- split(/:\s+/);
+- $metric{$_[0]} = eval($_[1]);
++ @oneline = split(/:\s+/);
++ $metric{@oneline[0]} = eval(@oneline[1]);
+ if ($metric{'ppem'} && $metric{'subst'} &&
+ $metric{'ascender'} && $metric{'descender'} && $metric{'widmax'}) {
+ push(@sizes, [ $metric{'ppem'},
+--- monafont-2.90/ttftools/make_cmap.debug 2003-08-06 01:26:37.000000000 +0900
++++ monafont-2.90/ttftools/make_cmap 2010-09-09 06:30:18.000000000 +0900
+@@ -46,8 +46,8 @@
+ @enc = ();
+ open(IN, $_[0]) || die("open: $_[0]: $!");
+ while($_ = getline(IN)) {
+- split(/\s+/);
+- $enc[eval($_[0])] = eval($_[1]);
++ @oneline = split(/\s+/);
++ $enc[eval(@oneline[0])] = eval(@oneline[1]);
+ }
+ close(IN);
+ }
+--- monafont-2.90/ttftools/merge_glyf.debug 2003-09-08 08:26:44.000000000 +0900
++++ monafont-2.90/ttftools/merge_glyf 2010-09-09 05:42:28.000000000 +0900
+@@ -76,7 +76,7 @@
+ open(IN, $cmap) || die("open: $src_cmap: $!");
+ while(<IN>) {
+ chop;
+- if (!/^\s*\#/) { split; $cmap_table{$_[0]} = $_[1]; }
++ if (!/^\s*\#/) { @cmapline = split() ; $cmap_table{@cmapline[0]} = @cmapline[1]; }
+ }
+ close(IN);
+
+--- monafont-2.90/ttftools/pickchars.debug 2003-08-06 01:26:37.000000000 +0900
++++ monafont-2.90/ttftools/pickchars 2010-09-09 05:52:40.000000000 +0900
+@@ -49,8 +49,8 @@
+ $f=shift(@ARGV);
+ open(IN, $f) || die("open: $f: $!");
+ while($_ = getline(IN)) {
+- split(/\s+/);
+- $enc{eval($_[0])} = 1;
++ @oneline = split(/\s+/);
++ $enc{eval(@oneline[0])} = 1;
+ }
+ close(IN);
+
+--- monafont-2.90/ttftools/remap_glyf.debug 2003-09-08 08:26:44.000000000 +0900
++++ monafont-2.90/ttftools/remap_glyf 2010-09-09 06:09:54.000000000 +0900
+@@ -65,7 +65,7 @@
+ while(<IN>) {
+ chop;
+ # $src_glyfnum is a mapping from CHARACTER_CODE to GLYPH_NUMBER in the source font.
+- if (!/^\s*\#/) { split; $src_glyfnum{$_[0]} = $_[1]; }
++ if (!/^\s*\#/) { @oneline = split; $src_glyfnum{@oneline[0]} = @oneline[1]; }
+ }
+ close(IN);
+
+@@ -79,8 +79,8 @@
+ chop;
+ if (!/^\s*\#/) {
+ # $dest_charnum is a mapping from GLYPH_NUMBER to CHARACTER_CODE in the dest font.
+- split; $dest_charnum{$_[1]} = $_[0];
+- $max_dest_glyfnum = $_[1] if ($max_dest_glyfnum < $_[1]);
++ @oneline = split; $dest_charnum{@oneline[1]} = @oneline[0];
++ $max_dest_glyfnum = @oneline[1] if ($max_dest_glyfnum < @oneline[1]);
+ }
+ }
+ close(IN);
diff --git a/monafont.spec b/monafont.spec
index 9b129c6..e44aace 100644
--- a/monafont.spec
+++ b/monafont.spec
@@ -29,7 +29,7 @@
%define obsoletes_EVR 2.90-5.999
%define sazanami_ver 20040629
-%define vlgothic_ver 20091202
+%define vlgothic_ver 20100818
%define catalog_dir %{_sysconfdir}/X11/fontpath.d
@@ -42,7 +42,7 @@ Japanese text arts correctly.
Name: %{archivename}
Version: 2.90
-Release: 10%{?dist}
+Release: 11%{?dist}
Summary: Japanese font for text arts
# monafont itself is under public domain
@@ -50,7 +50,9 @@ Group: User Interface/X
License: Public Domain
URL: http://monafont.sourceforge.net/
Source0: http://downloads.sourceforge.net/monafont/%{archivename}-%{version}.tar.bz2
-BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
+# Need investigating, however
+# it seems that the behavior of "split" changed between 5.10 -> 5.12
+Patch0: monafont-2.90-perl512-split.patch
BuildArch: noarch
BuildRequires: fontpackages-devel
@@ -111,6 +113,8 @@ This package contains True Type fonts generated generated from
%prep
%setup -q
+%patch0 -p1 -b .perl512
+
iconv -f EUC-JP -t UTF-8 README.euc > README
touch -r README.euc README
iconv -f SHIFT-JIS -t UTF-8 ttfsrc/README-ttf.txt > ttfsrc/README-ttf.txt.tmp
@@ -225,6 +229,10 @@ fi
%doc ttfsrc/README-ttf.txt
%changelog
+* Thu Sep 9 2010 Mamoru Tasaka <mtasaka at ioa.s.u-tokyo.ac.jp> - 2.90-11
+- Rebuild for newest VLGothic
+- Patch for the behavior change of "split" on perl 5.12
+
* Thu Jan 14 2010 Mamoru Tasaka <mtasaka at ioa.s.u-tokyo.ac.jp> - 2.90-10
- Rebuild for newest VLGothic
More information about the scm-commits
mailing list