X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FConstants.pm;h=cee418f6ba583a3f2eab545514ec97af6b40dc58;hb=b1dc5246c8917c4d0e11c154537c902baa654c84;hp=dcf35e5b6561012e16d1911f3442d8ce284ff1a2;hpb=889475be74f43b938d8dbcb549699c939dfe9d66;p=maypole.git

diff --git a/lib/Maypole/Constants.pm b/lib/Maypole/Constants.pm
index dcf35e5..cee418f 100644
--- a/lib/Maypole/Constants.pm
+++ b/lib/Maypole/Constants.pm
@@ -1,8 +1,9 @@
 package Maypole::Constants;
+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+)/;
 
@@ -42,7 +43,7 @@ L<Maypole>
 
 =head1 MAINTAINER
 
-Sebastian Riedel, c<sri@oook.de>
+Aaron Trevena, c<teejay@droogs.org>
 
 =head1 AUTHOR