Making the version number reflect the cvs version, to allow for easier

debugging.
If we can ask people what version of a module they are running it makes
error checking easier

diff --git a/C4/Search.pm b/C4/Search.pm
index e70218a..8d305a8 100755 (executable)
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -29,7 +29,8 @@ use C4::Date;
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
-$VERSION = 0.02;
+$VERSION = do { my @v = '$Revision$' =~ /\d+/g;
+          shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 =head1 NAME