r20703 - in /branches/upstream/libfont-afm-perl/current: AFM.pm Changes MANIFEST META.yml t/afm.t

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Wed Jun  4 20:15:42 2008
New Revision: 20703

URL: http://svn.debian.org/wsvn/?sc=1&rev=20703
Log:
[svn-upgrade] Integrating new upstream version, libfont-afm-perl (1.20)

Added:
    branches/upstream/libfont-afm-perl/current/META.yml
Modified:
    branches/upstream/libfont-afm-perl/current/AFM.pm
    branches/upstream/libfont-afm-perl/current/Changes
    branches/upstream/libfont-afm-perl/current/MANIFEST
    branches/upstream/libfont-afm-perl/current/t/afm.t

Modified: branches/upstream/libfont-afm-perl/current/AFM.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libfont-afm-perl/current/AFM.pm?rev=20703&op=diff
==============================================================================
--- branches/upstream/libfont-afm-perl/current/AFM.pm (original)
+++ branches/upstream/libfont-afm-perl/current/AFM.pm Wed Jun  4 20:15:42 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: branches/upstream/libfont-afm-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libfont-afm-perl/current/Changes?rev=20703&op=diff
==============================================================================
--- branches/upstream/libfont-afm-perl/current/Changes (original)
+++ branches/upstream/libfont-afm-perl/current/Changes Wed Jun  4 20:15:42 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: branches/upstream/libfont-afm-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/branches/upstream/libfont-afm-perl/current/MANIFEST?rev=20703&op=diff
==============================================================================
--- branches/upstream/libfont-afm-perl/current/MANIFEST (original)
+++ branches/upstream/libfont-afm-perl/current/MANIFEST Wed Jun  4 20:15:42 2008
@@ -18,3 +18,4 @@
 make_metrics
 t/afm.t
 t/times.t
+META.yml                                 Module meta-data (added by MakeMaker)

Added: branches/upstream/libfont-afm-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libfont-afm-perl/current/META.yml?rev=20703&op=file
==============================================================================
--- branches/upstream/libfont-afm-perl/current/META.yml (added)
+++ branches/upstream/libfont-afm-perl/current/META.yml Wed Jun  4 20:15:42 2008
@@ -1,0 +1,12 @@
+--- #YAML:1.0
+name:                Font-AFM
+version:             1.20
+abstract:            ~
+license:             ~
+author:              ~
+generated_by:        ExtUtils::MakeMaker version 6.42_01
+distribution_type:   module
+requires:     
+meta-spec:
+    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
+    version: 1.3

Modified: branches/upstream/libfont-afm-perl/current/t/afm.t
URL: http://svn.debian.org/wsvn/branches/upstream/libfont-afm-perl/current/t/afm.t?rev=20703&op=diff
==============================================================================
--- branches/upstream/libfont-afm-perl/current/t/afm.t (original)
+++ branches/upstream/libfont-afm-perl/current/t/afm.t Wed Jun  4 20:15:42 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";
 }