Merge branch 'upstream'

[maypole.git] / lib / Maypole / Constants.pm

diff --git a/lib/Maypole/Constants.pm b/lib/Maypole/Constants.pm
index 9c018f9325f4e7782723fd3d77abd0bde00edcac..cee418f6ba583a3f2eab545514ec97af6b40dc58 100644 (file)
--- a/lib/Maypole/Constants.pm
+++ b/lib/Maypole/Constants.pm
@@ -3,9 +3,9 @@ use strict;
 use base 'Exporter';
 use constant OK       => 0;
 use constant DECLINED => -1;
-use constant ERROR    => -1;
+use constant ERROR    => 500;
 our @EXPORT = qw(OK DECLINED ERROR);
-our $VERSION = "1." . sprintf "%04d", q$Rev: 354 $ =~ /: (\d+)/;
+our $VERSION = "1." . sprintf "%04d", q$Rev$ =~ /: (\d+)/;
 
 1;