X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FConstants.pm;h=cee418f6ba583a3f2eab545514ec97af6b40dc58;hb=5c776a61a4b51aa2dc97c08fcb5feffd20f14063;hp=09e7d4b3fa1f1fcc1a91b1c94d61a4e9a92a245f;hpb=547754066179eb37eb418277d2b9a5d016613a2f;p=maypole.git

diff --git a/lib/Maypole/Constants.pm b/lib/Maypole/Constants.pm
index 09e7d4b..cee418f 100644
--- a/lib/Maypole/Constants.pm
+++ b/lib/Maypole/Constants.pm
@@ -3,7 +3,7 @@ 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$ =~ /: (\d+)/;