From: David Baird <cpan.zerofive@googlemail.com>
Date: Mon, 3 Oct 2005 18:38:27 +0000 (+0000)
Subject: Fixed bug calling __to_boolean
X-Git-Tag: 2.11~133
X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=d73958197b312ceaea79b355ae2223b59b8fe248;p=maypole.git

Fixed bug calling __to_boolean

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

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index bc4a5aa..3077bfd 100644
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -107,7 +107,7 @@ sub handler_guts
     
     $r->__load_model;
 
-    my $applicable = __to_boolean $r->is_applicable;
+    my $applicable = __to_boolean( $r->is_applicable );
     
     $r->__setup_plain_template unless $applicable;
     
@@ -243,7 +243,7 @@ sub is_applicable
 }
 
 # *only* intended for translating the return code from is_applicable()
-sub __to_boolean ($) { $_[0] == OK ? 1 : 0 }
+sub __to_boolean { $_[0] == OK ? 1 : 0 }