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 bc4a5aac96d06376fbb7a01b4bd704adab4f2939..3077bfddc1e4466471667a1222f3f6a35160f406 100644 (file)
--- 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 }