From: Will Budic <redacted>
Date: Fri, 28 Mar 2025 01:55:14 +0000 (+1100)
Subject: .
X-Git-Url: https://lifelog.hopto.org/gitweb/?a=commitdiff_plain;h=934092d9b162253d83ad97aed09d1eb79567fe78;p=PerlCNF.git

.
---

diff --git a/system/modules/CNFMeta.pm b/system/modules/CNFMeta.pm
index bf92838..f4f6964 100644
--- a/system/modules/CNFMeta.pm
+++ b/system/modules/CNFMeta.pm
@@ -67,7 +67,7 @@ sub import {
          # Execute via system shell.
          *{"${caller}::meta"}  = \&_meta;
          *{"${caller}::SHELL"}  = sub {return _meta("SHELL")};
-         # Returns the regular expresion for any of the meta constances.
+         # Returns the regular expression for any of the meta constances.
     }
     return 1;
 }
@@ -180,8 +180,8 @@ return _MakeTableHeader(\@header,\@array,\@spec,\@rel);
 ###
 # Table Header builder routine required to be called when header is made or recreated.
 # Such builder pattern avoids us to make a looked up type, it is faster and better also in for gc.
-# It is drirect strict ordinal order referenced header array access. So before use this ubroutine must be called.
-# And when header is modified this subrotine also must be modified, otherwise fatal errors, which is good.
+# It is direct strict ordinal order referenced header array access. So before use this subroutine must be called.
+# And when header is modified this subroutine also must be modified, otherwise fatal errors, which is good.
 #
 sub _MakeTableHeader{ my ($header,$lbls,$spec,$rel) = @_;
 my @hdr = @$header;
diff --git a/system/modules/CNFParser.pm b/system/modules/CNFParser.pm
index a157a34..125f0e4 100644
--- a/system/modules/CNFParser.pm
+++ b/system/modules/CNFParser.pm
@@ -88,6 +88,7 @@ sub new { my ($class, $path, $attrs, $del_keys, $self) = @_;
         $self->{__ANONS__} = {};
         $anechoic = $self->{__ANONS__};
     }
+    undef %lists;
 
     if(exists  $self->{'%LOG'}){
         if(ref($self->{'%LOG'}) ne 'HASH'){
diff --git a/system/modules/PluginBase.pm b/system/modules/PluginBase.pm
index 7a051cf..00f1836 100644
--- a/system/modules/PluginBase.pm
+++ b/system/modules/PluginBase.pm
@@ -1,7 +1,7 @@
 package PluginBase;
 use v5.36;
 use strict;
-use warnings; 
+use warnings;
 use Syntax::Keyword::Try;
 use feature qw(signatures);
 use Scalar::Util qw(looks_like_number);