r3368 - in /packages/libfont-ttf-perl/trunk: COPYING MANIFEST MANIFEST.SKIP META.yml Makefile Makefile.PL debian/changelog lib/Font/TTF.pm lib/Font/TTF/EBDT.pm lib/Font/TTF/EBLC.pm lib/Font/TTF/Font.pm lib/Font/TTF/Hmtx.pm lib/Font/TTF/Ttopen.pm

eloy at users.alioth.debian.org eloy at users.alioth.debian.org
Wed Aug 2 10:32:21 UTC 2006


Author: eloy
Date: Wed Aug  2 10:32:20 2006
New Revision: 3368

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=3368
Log:
eloy: new upstream version

Added:
    packages/libfont-ttf-perl/trunk/COPYING
      - copied unchanged from r3367, packages/libfont-ttf-perl/branches/upstream/current/COPYING
    packages/libfont-ttf-perl/trunk/lib/Font/TTF.pm
      - copied unchanged from r3367, packages/libfont-ttf-perl/branches/upstream/current/lib/Font/TTF.pm
    packages/libfont-ttf-perl/trunk/lib/Font/TTF/EBDT.pm
      - copied unchanged from r3367, packages/libfont-ttf-perl/branches/upstream/current/lib/Font/TTF/EBDT.pm
    packages/libfont-ttf-perl/trunk/lib/Font/TTF/EBLC.pm
      - copied unchanged from r3367, packages/libfont-ttf-perl/branches/upstream/current/lib/Font/TTF/EBLC.pm
Removed:
    packages/libfont-ttf-perl/trunk/Makefile
Modified:
    packages/libfont-ttf-perl/trunk/MANIFEST
    packages/libfont-ttf-perl/trunk/MANIFEST.SKIP
    packages/libfont-ttf-perl/trunk/META.yml
    packages/libfont-ttf-perl/trunk/Makefile.PL
    packages/libfont-ttf-perl/trunk/debian/changelog
    packages/libfont-ttf-perl/trunk/lib/Font/TTF/Font.pm
    packages/libfont-ttf-perl/trunk/lib/Font/TTF/Hmtx.pm
    packages/libfont-ttf-perl/trunk/lib/Font/TTF/Ttopen.pm

Modified: packages/libfont-ttf-perl/trunk/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libfont-ttf-perl/trunk/MANIFEST?rev=3368&op=diff
==============================================================================
--- packages/libfont-ttf-perl/trunk/MANIFEST (original)
+++ packages/libfont-ttf-perl/trunk/MANIFEST Wed Aug  2 10:32:20 2006
@@ -1,3 +1,5 @@
+COPYING
+lib/Font/TTF.pm
 lib/Font/TTF/AATKern.pm
 lib/Font/TTF/AATutils.pm
 lib/Font/TTF/Anchor.pm
@@ -7,6 +9,8 @@
 lib/Font/TTF/Coverage.pm
 lib/Font/TTF/Cvt_.pm
 lib/Font/TTF/Delta.pm
+lib/Font/TTF/EBDT.pm
+lib/Font/TTF/EBLC.pm
 lib/Font/TTF/Fdsc.pm
 lib/Font/TTF/Feat.pm
 lib/Font/TTF/Fmtx.pm
@@ -59,9 +63,8 @@
 lib/Font/TTF/Win32.pm
 lib/Font/TTF/XMLparse.pm
 lib/ttfmod.pl
-Makefile
 Makefile.PL
 MANIFEST			This list of files
 MANIFEST.SKIP
+META.yml
 README.TXT
-META.yml                                 Module meta-data (added by MakeMaker)

Modified: packages/libfont-ttf-perl/trunk/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libfont-ttf-perl/trunk/MANIFEST.SKIP?rev=3368&op=diff
==============================================================================
--- packages/libfont-ttf-perl/trunk/MANIFEST.SKIP (original)
+++ packages/libfont-ttf-perl/trunk/MANIFEST.SKIP Wed Aug  2 10:32:20 2006
@@ -10,8 +10,10 @@
 \.cvsignore
 ^#
 \.svn/
-Makefile
+Makefile$
 \.par$
 -stamp$
 debian/
 pm_to_blib
+\~$
+dev/

Modified: packages/libfont-ttf-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libfont-ttf-perl/trunk/META.yml?rev=3368&op=diff
==============================================================================
--- packages/libfont-ttf-perl/trunk/META.yml (original)
+++ packages/libfont-ttf-perl/trunk/META.yml Wed Aug  2 10:32:20 2006
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Font-TTF
-version:      0.39
+version:      0.40
 version_from: lib/Font/TTF.pm
 installdirs:  site
 requires:

Modified: packages/libfont-ttf-perl/trunk/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libfont-ttf-perl/trunk/Makefile.PL?rev=3368&op=diff
==============================================================================
--- packages/libfont-ttf-perl/trunk/Makefile.PL (original)
+++ packages/libfont-ttf-perl/trunk/Makefile.PL Wed Aug  2 10:32:20 2006
@@ -1,44 +1,44 @@
-use ExtUtils::MakeMaker;
-
- at theselibs = grep {-f } glob("lib/Font/TTF/*");
-
+use ExtUtils::MakeMaker;
+
+ at theselibs = (grep {-f } glob("lib/Font/TTF/*"), "lib/Font/TTF.pm");
+
 # incantation to enable MY::pm_to_blib later on
 if ($^O eq 'MSWin32')
-{
+{
     push(@ExtUtils::MakeMaker::Overridable, qw(pm_to_blib));
-    @extras = ('dist' => { 'TO_UNIX' => 'perl -Mtounix -e "tounix(\"$(DISTVNAME)\")"' });
+    @extras = ('dist' => { 'TO_UNIX' => 'perl -Mtounix -e "tounix(\"$(DISTVNAME)\")"' });
 }
-
-WriteMakefile (
+
+WriteMakefile (
         NAME => "Font::TTF",
-        VERSION_FROM => 'lib/Font/TTF.pm',
-#        VERSION => "0.38",
-#        HTMLLIBPODS => {map {my $t = $_; $t=~s/\..*?$/.html/o; $t='blib/Html/'.$t; $_ => $t;} @theselibs},
-#        HTMLSCRIPTPODS => {map {my $t=$_; $t=~s/\..*?$/.html/o; $t='blib/Html/'.$t; $_ => $t;} @scripts},
-        AUTHOR => "martin_hosken\@sil.org",
-        ABSTRACT => "TTF font support for Perl",
-        @extras
-    );
-
-if ($^O eq 'MSWin32') {
-# incantation to solve the problem of everyone's $Config{make} being 'nmake'
-# when we want 'pmake'. And $Config{} is read only.
-# actually, this is just a copy of the code from ExtUtiles::MM_Win32 tidied
-# up (to expose tabs) and the dependency on Config removed
-sub MY::pm_to_blib
-{
-    my $self = shift;
-    my($autodir) = $self->catdir('$(INST_LIB)','auto');
-    return <<"EOT";
-
-pm_to_blib: \$(TO_INST_PM)
-\t$self->{NOECHO}\$(PERL) \"-I\$(INST_ARCHLINE)\" \"-I\$(INST_LIB)\" \\
-\t\"-I\$(PERL_ARCHLIB)\" \"-I\$(PERL_LIB)\" -MExtUtils::Install \\
-\t-e \"pm_to_blib({ qw[\$(PM_TO_BLIB)] }, '$autodir')
-\t$self->{NOECHO}\$(TOUCH) \$@
-
-EOT
-}
-
-}
-
+        VERSION_FROM => 'lib/Font/TTF.pm',
+#        VERSION => "0.38",
+#        HTMLLIBPODS => {map {my $t = $_; $t=~s/\..*?$/.html/o; $t='blib/Html/'.$t; $_ => $t;} @theselibs},
+#        HTMLSCRIPTPODS => {map {my $t=$_; $t=~s/\..*?$/.html/o; $t='blib/Html/'.$t; $_ => $t;} @scripts},
+        AUTHOR => "martin_hosken\@sil.org",
+        ABSTRACT => "TTF font support for Perl",
+        @extras
+    );
+
+if ($^O eq 'MSWin32') {
+# incantation to solve the problem of everyone's $Config{make} being 'nmake'
+# when we want 'pmake'. And $Config{} is read only.
+# actually, this is just a copy of the code from ExtUtiles::MM_Win32 tidied
+# up (to expose tabs) and the dependency on Config removed
+sub MY::pm_to_blib
+{
+    my $self = shift;
+    my($autodir) = $self->catdir('$(INST_LIB)','auto');
+    return <<"EOT";
+
+pm_to_blib: \$(TO_INST_PM)
+\t$self->{NOECHO}\$(PERL) \"-I\$(INST_ARCHLINE)\" \"-I\$(INST_LIB)\" \\
+\t\"-I\$(PERL_ARCHLIB)\" \"-I\$(PERL_LIB)\" -MExtUtils::Install \\
+\t-e \"pm_to_blib({ qw[\$(PM_TO_BLIB)] }, '$autodir')
+\t$self->{NOECHO}\$(TOUCH) \$@
+
+EOT
+}
+
+}
+

Modified: packages/libfont-ttf-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libfont-ttf-perl/trunk/debian/changelog?rev=3368&op=diff
==============================================================================
--- packages/libfont-ttf-perl/trunk/debian/changelog (original)
+++ packages/libfont-ttf-perl/trunk/debian/changelog Wed Aug  2 10:32:20 2006
@@ -1,3 +1,9 @@
+libfont-ttf-perl (0.40-1) UNRELEASED; urgency=low
+
+  * New upstream release
+
+ -- Krzysztof Krzyzaniak (eloy) <eloy at debian.org>  Wed,  2 Aug 2006 12:31:06 +0200
+
 libfont-ttf-perl (0.39-1) unstable; urgency=low
 
   * New upstream release
@@ -87,4 +93,3 @@
   * Closes: #180906.
 
  -- Gunnar Eyal Wolf Iszaevich <gwolf at gwolf.cx>  Tue, 11 Feb 2003 17:18:07 -0600
-

Modified: packages/libfont-ttf-perl/trunk/lib/Font/TTF/Font.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libfont-ttf-perl/trunk/lib/Font/TTF/Font.pm?rev=3368&op=diff
==============================================================================
--- packages/libfont-ttf-perl/trunk/lib/Font/TTF/Font.pm (original)
+++ packages/libfont-ttf-perl/trunk/lib/Font/TTF/Font.pm Wed Aug  2 10:32:20 2006
@@ -38,6 +38,8 @@
 defaults to L<Font::TTF::Table>. The current tables which are supported are:
 
     table       Font::TTF::Table      - for unknown tables
+    EBDT        Font::TTF::EBDT
+    EBLC        Font::TTF::EBLC
     GDEF        Font::TTF::GDEF
     GPOS        Font::TTF::GPOS
     GSUB        Font::TTF::GSUB
@@ -69,7 +71,9 @@
 
 Links are:
 
-L<Font::TTF::Table> L<Font::TTF::GDEF> L<Font::TTF::GPOS> L<Font::TTF::GSUB> L<Font::TTF::LTSH>
+L<Font::TTF::Table> 
+L<Font::TTF::EBDT> L<Font::TTF::EBLC>
+L<Font::TTF::GDEF> L<Font::TTF::GPOS> L<Font::TTF::GSUB> L<Font::TTF::LTSH>
 L<Font::TTF::OS_2> L<Font::TTF::PCLT> L<Font::TTF::Bsln> L<Font::TTF::Cmap> L<Font::TTF::Cvt_>
 L<Font::TTF::Fdsc> L<Font::TTF::Feat> L<Font::TTF::Fmtx> L<Font::TTF::Fpgm> L<Font::TTF::Glyf>
 L<Font::TTF::Hdmx> L<Font::TTF::Head> L<Font::TTF::Hhea> L<Font::TTF::Hmtx> L<Font::TTF::Kern>
@@ -162,6 +166,8 @@
 
 %tables = (
         'table' => 'Font::TTF::Table',
+        'EBDT' => 'Font::TTF::EBDT',
+        'EBLC' => 'Font::TTF::EBLC',
         'GDEF' => 'Font::TTF::GDEF',
         'GPOS' => 'Font::TTF::GPOS',
         'GSUB' => 'Font::TTF::GSUB',

Modified: packages/libfont-ttf-perl/trunk/lib/Font/TTF/Hmtx.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libfont-ttf-perl/trunk/lib/Font/TTF/Hmtx.pm?rev=3368&op=diff
==============================================================================
--- packages/libfont-ttf-perl/trunk/lib/Font/TTF/Hmtx.pm (original)
+++ packages/libfont-ttf-perl/trunk/lib/Font/TTF/Hmtx.pm Wed Aug  2 10:32:20 2006
@@ -71,7 +71,7 @@
     }
     
     $i--;
-    while ($i++ < $numg)
+    while (++$i < $numg)
     {
         $fh->read($dat, 2);
         $self->{$tAdv}[$i] = $self->{$tAdv}[$numh - 1];

Modified: packages/libfont-ttf-perl/trunk/lib/Font/TTF/Ttopen.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libfont-ttf-perl/trunk/lib/Font/TTF/Ttopen.pm?rev=3368&op=diff
==============================================================================
--- packages/libfont-ttf-perl/trunk/lib/Font/TTF/Ttopen.pm (original)
+++ packages/libfont-ttf-perl/trunk/lib/Font/TTF/Ttopen.pm Wed Aug  2 10:32:20 2006
@@ -1039,6 +1039,7 @@
     } elsif ($type == 6 && $fmt == 3)
     {
         $r = $lookup->{'RULES'}[0][0];
+		no strict 'refs';	# temp fix - more code needed (probably "if" statements in the event 'PRE' or 'POST' are empty)
         $out .= pack('n2', $fmt, scalar @{$r->{'PRE'}});
         foreach $t (@{$r->{'PRE'}})
         { $out .= pack('n', Font::TTF::Ttopen::ref_cache($t, $ctables, length($out))); }




More information about the Pkg-perl-cvs-commits mailing list