- added VERSION numbers to most .pms
authorTony Cook <tony@develop=help.com>
Mon, 8 Aug 2005 04:18:45 +0000 (04:18 +0000)
committerTony Cook <tony@develop=help.com>
Mon, 8 Aug 2005 04:18:45 +0000 (04:18 +0000)
17 files changed:
Changes
lib/Imager/Color.pm
lib/Imager/Color/Float.pm
lib/Imager/Color/Table.pm
lib/Imager/Expr.pm
lib/Imager/Expr/Assem.pm
lib/Imager/Fill.pm
lib/Imager/Font.pm
lib/Imager/Font/BBox.pm
lib/Imager/Font/FreeType2.pm
lib/Imager/Font/Truetype.pm
lib/Imager/Font/Type1.pm
lib/Imager/Font/Win32.pm
lib/Imager/Font/Wrap.pm
lib/Imager/Fountain.pm
lib/Imager/Matrix2d.pm
lib/Imager/Transform.pm

diff --git a/Changes b/Changes
index 6d6e14b..46b6682 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1124,6 +1124,7 @@ Revision history for Perl extension Imager.
 - convert t/t15color.t to Test::More
 - prevent warnings when looking up a GIMP color with no palette
   parameter and $ENV{HOME} not set.
+- added VERSION numbers to most .pms
 
 =================================================================
 
index 6fbfebf..380a2a4 100644 (file)
@@ -2,7 +2,9 @@ package Imager::Color;
 
 use Imager;
 use strict;
-use vars qw();
+use vars qw($VERSION);
+
+$VERSION = sprintf "%d.%03d", q$Revision$=~/\d+/g;
 
 # It's just a front end to the XS creation functions.
 
index a8c6d80..8994b01 100644 (file)
@@ -2,7 +2,9 @@ package Imager::Color::Float;
 
 use Imager;
 use strict;
-use vars qw();
+use vars qw($VERSION);
+
+$VERSION = sprintf "%d.%03d", q$Revision$=~/\d+/g;
 
 # It's just a front end to the XS creation functions.
 
index 2a26568..c1b8af5 100644 (file)
@@ -1,5 +1,8 @@
 package Imager::Color::Table;
 use strict;
+use vars qw($VERSION);
+
+$VERSION = sprintf "%d.%03d", q$Revision$=~/\d+/g;
 
     my %colors;
 
index 8833dc9..082f2de 100644 (file)
@@ -2,6 +2,9 @@ package Imager::Expr;
 
 use Imager::Regops;
 use strict;
+use vars qw($VERSION);
+
+$VERSION = sprintf "%d.%03d", q$Revision$=~/\d+/g;
 
 my %expr_types;
 
index 0447561..a533bd4 100644 (file)
@@ -2,6 +2,9 @@ package Imager::Expr::Assem;
 use strict;
 use Imager::Expr;
 use Imager::Regops;
+use vars qw($VERSION);
+
+$VERSION = sprintf "%d.%03d", q$Revision$=~/\d+/g;
 
 use vars qw(@ISA);
 @ISA = qw(Imager::Expr);
index 7841a57..6111b29 100644 (file)
@@ -1,5 +1,9 @@
 package Imager::Fill;
 use strict;
+use vars qw($VERSION);
+
+$VERSION = sprintf "%d.%03d", q$Revision$=~/\d+/g;
+
 # this needs to be kept in sync with the array of hatches in fills.c
 my @hatch_types =
   qw/check1x1 check2x2 check4x4 vline1 vline2 vline4
index c806a25..5d21a97 100644 (file)
@@ -2,6 +2,9 @@ package Imager::Font;
 
 use Imager::Color;
 use strict;
+use vars qw($VERSION);
+
+$VERSION = sprintf "%d.%03d", q$Revision$=~/\d+/g;
 
 # the aim here is that we can:
 #  - add file based types in one place: here
index dd58f7a..775018c 100644 (file)
@@ -1,5 +1,8 @@
 package Imager::Font::BBox;
 use strict;
+use vars qw($VERSION);
+
+$VERSION = sprintf "%d.%03d", q$Revision$=~/\d+/g;
 
 =head1 NAME
 
index d480209..087a3f7 100644 (file)
@@ -1,9 +1,11 @@
 package Imager::Font::FreeType2;
 use strict;
 use Imager::Color;
-use vars qw(@ISA);
+use vars qw(@ISA $VERSION);
 @ISA = qw(Imager::Font);
 
+$VERSION = sprintf "%d.%03d", q$Revision$=~/\d+/g;
+
 *_first = \&Imager::Font::_first;
 
 sub new {
index 283fa95..2321b0b 100644 (file)
@@ -1,8 +1,10 @@
 package Imager::Font::Truetype;
 use strict;
-use vars qw(@ISA);
+use vars qw(@ISA $VERSION);
 @ISA = qw(Imager::Font);
 
+$VERSION = sprintf "%d.%03d", q$Revision$=~/\d+/g;
+
 *_first = \&Imager::Font::_first;
 
 sub new {
index 5c71e62..510d4df 100644 (file)
@@ -1,9 +1,11 @@
 package Imager::Font::Type1;
 use strict;
 use Imager::Color;
-use vars qw(@ISA);
+use vars qw(@ISA $VERSION);
 @ISA = qw(Imager::Font);
 
+$VERSION = sprintf "%d.%03d", q$Revision$=~/\d+/g;
+
 *_first = \&Imager::Font::_first;
 
 my $t1aa;
index ca1818f..0e9a06e 100644 (file)
@@ -1,8 +1,10 @@
 package Imager::Font::Win32;
 use strict;
-use vars qw(@ISA);
+use vars qw(@ISA $VERSION);
 @ISA = qw(Imager::Font);
 
+$VERSION = sprintf "%d.%03d", q$Revision$=~/\d+/g;
+
 # called by Imager::Font::new()
 # since Win32's HFONTs include the size information this
 # is just a stub
index b962a4c..1f1ba32 100644 (file)
@@ -3,6 +3,9 @@ package Imager::Font::Wrap;
 use strict;
 use Imager;
 use Imager::Font;
+use vars qw($VERSION);
+
+$VERSION = sprintf "%d.%03d", q$Revision$=~/\d+/g;
 
 *_first = \&Imager::Font::_first;
 
index af7d2f6..65d5798 100644 (file)
@@ -1,6 +1,9 @@
 package Imager::Fountain;
 use strict;
 use Imager::Color::Float;
+use vars qw($VERSION);
+
+$VERSION = sprintf "%d.%03d", q$Revision$=~/\d+/g;
 
 =head1 NAME
 
index 6aca2f9..d5467b5 100644 (file)
@@ -1,5 +1,8 @@
 package Imager::Matrix2d;
 use strict;
+use vars qw($VERSION);
+
+$VERSION = sprintf "%d.%03d", q$Revision$=~/\d+/g;
 
 =head1 NAME
 
index 2d11034..d44b205 100644 (file)
@@ -2,6 +2,9 @@ package Imager::Transform;
 use strict;
 use Imager;
 use Imager::Expr::Assem;
+use vars qw($VERSION);
+
+$VERSION = sprintf "%d.%03d", q$Revision$=~/\d+/g;
 
 my %funcs =
   (