set svn:keywords=Rev

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@298 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/lib/Maypole/Constants.pm b/lib/Maypole/Constants.pm
index b79704fbaa0d66a8e073ca63c344f97a0f471b2b..69178502bbdccf7a824d103805a2cb3c0aee7275 100644 (file)
--- a/lib/Maypole/Constants.pm
+++ b/lib/Maypole/Constants.pm
@@ -4,6 +4,7 @@ use constant OK       => 0;
 use constant DECLINED => -1;
 use constant ERROR    => -1;
 our @EXPORT = qw(OK DECLINED ERROR);
+our $VERSION = "1." . sprintf "%04d", q$Rev$ =~ /: (\d+)/;
 
 =head1 NAME