.

diff --git a/system/modules/CNFMeta.pm b/system/modules/CNFMeta.pm
index bf9283893207396216b4fc3a45034c3c3cfb5e76..f4f696453a0e88d1ff2d24c7e27c130079b8104d 100644 (file)
--- 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 a157a34ed9e648ed7a83d14e2ac4e739b3daa4f2..125f0e4f7c4381fb6ad5405fdf11ab7642cc5f0d 100644 (file)
--- 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 7a051cf57b60c5eb06113dce926b62bb8105ae3a..00f1836a8af36a0857c0a891c12d1de41285acfd 100644 (file)
--- 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);