- added VERSION numbers to most .pms

diff --git a/Changes b/Changes
index 6d6e14bf6f3cb8e0aa70aa2cc3731bb610335ac2..46b6682d3e1ea174eb02faafb885df41d58a9b32 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
 
 =================================================================
 

diff --git a/lib/Imager/Color.pm b/lib/Imager/Color.pm
index 6fbfebf8db202b2994ad2dab8b23bf1877d42133..380a2a4fc77c77efacc37e49ec72b16d43b8e960 100644 (file)
--- a/lib/Imager/Color.pm
+++ b/lib/Imager/Color.pm
@@ -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.
 

diff --git a/lib/Imager/Color/Float.pm b/lib/Imager/Color/Float.pm
index a8c6d807c79c5885408a4e7b56bf7e3ce50d3b4e..8994b0101f9ee95bc005877c41fc1ce1a4d7ee47 100644 (file)
--- a/lib/Imager/Color/Float.pm
+++ b/lib/Imager/Color/Float.pm
@@ -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.
 

diff --git a/lib/Imager/Color/Table.pm b/lib/Imager/Color/Table.pm
index 2a26568480ca28daff949206b4016fbd722729e5..c1b8af5d346d04555e44f95da623544d73a09949 100644 (file)
--- a/lib/Imager/Color/Table.pm
+++ b/lib/Imager/Color/Table.pm
@@ -1,5 +1,8 @@
 package Imager::Color::Table;
 use strict;
+use vars qw($VERSION);
+
+$VERSION = sprintf "%d.%03d", q$Revision$=~/\d+/g;
 
     my %colors;
 

diff --git a/lib/Imager/Expr.pm b/lib/Imager/Expr.pm
index 8833dc9f51f559535cb4e96229a26745d1302bca..082f2de9d1803268041ff7bde6de18fa0dbee749 100644 (file)
--- a/lib/Imager/Expr.pm
+++ b/lib/Imager/Expr.pm
@@ -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;
 

diff --git a/lib/Imager/Expr/Assem.pm b/lib/Imager/Expr/Assem.pm
index 04475614d2be38d5fd1ed3d8be434c63b6acf32a..a533bd463ea4c743115930b2aa4d3b44a7e5e88b 100644 (file)
--- a/lib/Imager/Expr/Assem.pm
+++ b/lib/Imager/Expr/Assem.pm
@@ -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);

diff --git a/lib/Imager/Fill.pm b/lib/Imager/Fill.pm
index 7841a5788b99855bed8686be8e56d71458c48be0..6111b290d234abf2b1f19031af8b7a19d3bb35fb 100644 (file)
--- a/lib/Imager/Fill.pm
+++ b/lib/Imager/Fill.pm
@@ -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

diff --git a/lib/Imager/Font.pm b/lib/Imager/Font.pm
index c806a25cfc983b2e9e3a75edccb6de2c40539023..5d21a976c89c38ce1de7b426ebb183eb66a9dc10 100644 (file)
--- a/lib/Imager/Font.pm
+++ b/lib/Imager/Font.pm
@@ -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

diff --git a/lib/Imager/Font/BBox.pm b/lib/Imager/Font/BBox.pm
index dd58f7ab760b85af741de869f008158d21edef34..775018cb15ce4df5421e3bfde9f142af5158ae46 100644 (file)
--- a/lib/Imager/Font/BBox.pm
+++ b/lib/Imager/Font/BBox.pm
@@ -1,5 +1,8 @@
 package Imager::Font::BBox;
 use strict;
+use vars qw($VERSION);
+
+$VERSION = sprintf "%d.%03d", q$Revision$=~/\d+/g;
 
 =head1 NAME
 

diff --git a/lib/Imager/Font/FreeType2.pm b/lib/Imager/Font/FreeType2.pm
index d480209439cc06b8d639a16524a6429b8aa2c2ce..087a3f7b9cdde2f06f6c2719ecd1b0f38f282a10 100644 (file)
--- a/lib/Imager/Font/FreeType2.pm
+++ b/lib/Imager/Font/FreeType2.pm
@@ -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 {

diff --git a/lib/Imager/Font/Truetype.pm b/lib/Imager/Font/Truetype.pm
index 283fa958ed2563be7bbcaca6d899324a3d087ad0..2321b0bf2de660da7f5cf5c5e35a33ed7af1560c 100644 (file)
--- a/lib/Imager/Font/Truetype.pm
+++ b/lib/Imager/Font/Truetype.pm
@@ -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 {

diff --git a/lib/Imager/Font/Type1.pm b/lib/Imager/Font/Type1.pm
index 5c71e62107edfe7c03471c47c98f6e4530d84d96..510d4dfea0cbe73d92e9897f7702082639b158cd 100644 (file)
--- a/lib/Imager/Font/Type1.pm
+++ b/lib/Imager/Font/Type1.pm
@@ -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;

diff --git a/lib/Imager/Font/Win32.pm b/lib/Imager/Font/Win32.pm
index ca1818f1aaadfda8293c13f6d7fb8013c0939ba7..0e9a06e93a3e931fa572c711386fe89302230840 100644 (file)
--- a/lib/Imager/Font/Win32.pm
+++ b/lib/Imager/Font/Win32.pm
@@ -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

diff --git a/lib/Imager/Font/Wrap.pm b/lib/Imager/Font/Wrap.pm
index b962a4cd4483e4d6c2d019dab4007140f4fa9155..1f1ba325aef2a87bcd5f2f04cee3a81e2e298e52 100644 (file)
--- a/lib/Imager/Font/Wrap.pm
+++ b/lib/Imager/Font/Wrap.pm
@@ -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;
 

diff --git a/lib/Imager/Fountain.pm b/lib/Imager/Fountain.pm
index af7d2f68b348313856cf0c4479feda24366cc692..65d5798fd3ee9a2bac910b1e7081b0790b5c7a76 100644 (file)
--- a/lib/Imager/Fountain.pm
+++ b/lib/Imager/Fountain.pm
@@ -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
 

diff --git a/lib/Imager/Matrix2d.pm b/lib/Imager/Matrix2d.pm
index 6aca2f9ecf76e45d01efebd2fa2402c9ef083523..d5467b58521c8c63c96907d9f078b6b9428d92b0 100644 (file)
--- a/lib/Imager/Matrix2d.pm
+++ b/lib/Imager/Matrix2d.pm
@@ -1,5 +1,8 @@
 package Imager::Matrix2d;
 use strict;
+use vars qw($VERSION);
+
+$VERSION = sprintf "%d.%03d", q$Revision$=~/\d+/g;
 
 =head1 NAME
 

diff --git a/lib/Imager/Transform.pm b/lib/Imager/Transform.pm
index 2d11034ad67796af4f81e0dbd9bb7415a8bfecbc..d44b20518e05016536d7e83ad0dd4fc7f5cebca2 100644 (file)
--- a/lib/Imager/Transform.pm
+++ b/lib/Imager/Transform.pm
@@ -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 =
   (