From: David Baird 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 }