Adding version string, checked merge from dev_week, not needed

This commit is contained in:
rangi 2006-05-22 23:25:37 +00:00
parent 42be25f242
commit 36d317eeb7

View file

@ -28,7 +28,7 @@ use Digest::MD5 qw(md5_base64);
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
$VERSION = 0.01;
$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
=head1 NAME