X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FCLI.pm;h=b2c6e911d545885147fff1e872ad3f1837482d21;hb=e1058b36db231a58f819075b0e5658a872e94f11;hp=8b7107b7b164a33a421cff6963896fb98dacc35f;hpb=b717b7341c854837780913339fb625cbe19b5d67;p=maypole.git

diff --git a/lib/Maypole/CLI.pm b/lib/Maypole/CLI.pm
index 8b7107b..b2c6e91 100644
--- a/lib/Maypole/CLI.pm
+++ b/lib/Maypole/CLI.pm
@@ -1,6 +1,7 @@
 package Maypole::CLI;
 use UNIVERSAL::require;
 use URI; use URI::QueryParam;
+use Maypole::Constants;
 
 use strict;
 use warnings;
@@ -31,7 +32,7 @@ sub send_output { $buffer = shift->{output} }
 
 # Do it!
 CHECK { if ((caller(0))[1] eq "-e") { 
-            $package->handler() and print $buffer; 
+            $package->handler() == OK and print $buffer; 
        } }
 
 1;