No wonder it wasn't printing anything.

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

diff --git a/lib/Maypole/CLI.pm b/lib/Maypole/CLI.pm
index 8b7107b7b164a33a421cff6963896fb98dacc35f..5524c7268d49c5eea1e28ad7d5b42db4f21c9b83 100644 (file)
--- a/lib/Maypole/CLI.pm
+++ b/lib/Maypole/CLI.pm
@@ -31,7 +31,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;