r20705 - in /trunk/libfont-afm-perl: AFM.pm Changes MANIFEST META.yml debian/changelog t/afm.t

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Wed Jun  4 20:16:53 2008
New Revision: 20705

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=20705
Log:
New upstream release.

Added:
    trunk/libfont-afm-perl/META.yml
      - copied unchanged from r20704, branches/upstream/libfont-afm-perl/current/META.yml
Modified:
    trunk/libfont-afm-perl/AFM.pm
    trunk/libfont-afm-perl/Changes
    trunk/libfont-afm-perl/MANIFEST
    trunk/libfont-afm-perl/debian/changelog
    trunk/libfont-afm-perl/t/afm.t

Modified: trunk/libfont-afm-perl/AFM.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfont-afm-perl/AFM.pm?rev=20705&op=diff
==============================================================================
--- trunk/libfont-afm-perl/AFM.pm (original)
+++ trunk/libfont-afm-perl/AFM.pm Wed Jun  4 20:16:53 2008
@@ -1,5 +1,4 @@
 # This -*- perl -*-  module is a simple parser for Adobe Font Metrics files.
-# $Id: AFM.pm,v 1.19 2004/01/08 12:48:50 gisle Exp $
 
 package Font::AFM;
 
@@ -187,7 +186,7 @@
 use strict;
 use vars qw($VERSION @ISOLatin1Encoding);
 
-$VERSION = sprintf("%d.%02d", q$Revision: 1.19 $ =~ /(\d+)\.(\d+)/);
+$VERSION = "1.20";
 
 
 # The metrics_path is used to locate metrics files

Modified: trunk/libfont-afm-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfont-afm-perl/Changes?rev=20705&op=diff
==============================================================================
--- trunk/libfont-afm-perl/Changes (original)
+++ trunk/libfont-afm-perl/Changes Wed Jun  4 20:16:53 2008
@@ -1,3 +1,11 @@
+2008-06-05   Gisle Aas <gisle at ActiveState.com>
+
+   Release 1.20
+
+   Improved TAP output from test.  Patch by Andy Armstrong.
+
+
+
 2004-01-08   Gisle Aas <gisle at ActiveState.com>
 
    Release 1.19

Modified: trunk/libfont-afm-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfont-afm-perl/MANIFEST?rev=20705&op=diff
==============================================================================
--- trunk/libfont-afm-perl/MANIFEST (original)
+++ trunk/libfont-afm-perl/MANIFEST Wed Jun  4 20:16:53 2008
@@ -18,3 +18,4 @@
 make_metrics
 t/afm.t
 t/times.t
+META.yml                                 Module meta-data (added by MakeMaker)

Modified: trunk/libfont-afm-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfont-afm-perl/debian/changelog?rev=20705&op=diff
==============================================================================
--- trunk/libfont-afm-perl/debian/changelog (original)
+++ trunk/libfont-afm-perl/debian/changelog Wed Jun  4 20:16:53 2008
@@ -1,10 +1,12 @@
-libfont-afm-perl (1.19-2) UNRELEASED; urgency=low
+libfont-afm-perl (1.20-1) UNRELEASED; urgency=low
 
   * debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
     field (source stanza); Homepage field (source stanza).
   * Set Maintainer to Debian Perl Group.
   * Use dist-based URL in debian/watch.
   * debian/rules: delete /usr/lib/perl5 only if it exists.
+
+  * New upstream release.
 
  -- gregor herrmann <gregor+debian at comodo.priv.at>  Sat, 01 Dec 2007 18:54:53 +0100
 

Modified: trunk/libfont-afm-perl/t/afm.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfont-afm-perl/t/afm.t?rev=20705&op=diff
==============================================================================
--- trunk/libfont-afm-perl/t/afm.t (original)
+++ trunk/libfont-afm-perl/t/afm.t Wed Jun  4 20:16:53 2008
@@ -5,13 +5,12 @@
 };
 if ($@) {
    if ($@ =~ /Can't find the AFM file for/) {
-	print "1..0\n";
-	print $@;
-	print "ok 1\n";
+	print "1..0 # Skipped: Can't find required font\n";
+	print "# $@";
    } else {
 	print "1..1\n";
-	print $@;
-	print "not ok 1\n";
+        print "# $@";
+	print "not ok 1 Found font OK\n";
    }
    exit;
 }
@@ -20,10 +19,8 @@
 $sw = $font->stringwidth("Gisle Aas");
 
 if ($sw == 4279) {
-    print "Stringwith for Helvetica seems to work\n";
-    print "ok 1\n";
+    print "ok 1 Stringwith for Helvetica seems to work\n";
 } else {
-    print "not ok 1\n";
-    print "The stringwidth of 'Gisle Aas' should be 4279 (is was $sw)\n";
+    print "not ok 1 The stringwidth of 'Gisle Aas' should be 4279 (it was $sw)\n";
 }