From: Simon Cozens <simon@simon-cozens.org>
Date: Fri, 16 Jul 2004 22:51:14 +0000 (+0000)
Subject: No wonder it wasn't printing anything.
X-Git-Tag: 2.10~203
X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=0ac4811fdd89ce1736ddc797b13527f482298130;p=maypole.git

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 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;