fix not implemented handling for .while loops

diff --git a/site/cgi-bin/modules/Squirrel/Template/Processor.pm b/site/cgi-bin/modules/Squirrel/Template/Processor.pm
index 95d38c4f1161058259a6ac4a90264992df200e08..f55a2fb7992727d860a26cb39e00c12a2a8fe00b 100644 (file)
--- a/site/cgi-bin/modules/Squirrel/Template/Processor.pm
+++ b/site/cgi-bin/modules/Squirrel/Template/Processor.pm
@@ -3,7 +3,7 @@ use strict;
 use Squirrel::Template::Constants qw(:node);
 use Scalar::Util ();
 
-our $VERSION = "1.022";
+our $VERSION = "1.023";
 
 use constant ACTS => 0;
 use constant TMPLT => 1;
@@ -688,7 +688,7 @@ sub _process_while {
   my $result;
   unless (eval { $result = $self->[EVAL]->process($cond); 1 }) {
     my $msg = $@;
-    if (!ref $msg && $msg ==~ /\bENOIMPL\b/) {
+    if (!ref $msg && $msg =~ /\bENOIMPL\b/) {
       return
        (
         $node->[NODE_ORIG],