From 0ac4811fdd89ce1736ddc797b13527f482298130 Mon Sep 17 00:00:00 2001
From: Simon Cozens <simon@simon-cozens.org>
Date: Fri, 16 Jul 2004 22:51:14 +0000
Subject: [PATCH] No wonder it wasn't printing anything.

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@159 48953598-375a-da11-a14b-00016c27c3ee
---
 lib/Maypole/CLI.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Maypole/CLI.pm b/lib/Maypole/CLI.pm
index 8b7107b..5524c72 100644
--- 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;
-- 
2.39.2