From d73958197b312ceaea79b355ae2223b59b8fe248 Mon Sep 17 00:00:00 2001 From: David Baird Date: Mon, 3 Oct 2005 18:38:27 +0000 Subject: [PATCH] Fixed bug calling __to_boolean git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@385 48953598-375a-da11-a14b-00016c27c3ee --- lib/Maypole.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 } -- 2.39.5