From: Will Budic <redacted>
Date: Wed, 26 Mar 2025 02:55:07 +0000 (+1100)
Subject: Priority fix InstructedDataItems.
X-Git-Url: https://lifelog.hopto.org/gitweb/?a=commitdiff_plain;h=fa69bf5e307f21a49e58616c3eee97191be9d2cc;p=PerlCNF.git

Priority fix InstructedDataItems.
---

diff --git a/system/modules/CNFParser.pm b/system/modules/CNFParser.pm
index 548f7d2..a157a34 100644
--- a/system/modules/CNFParser.pm
+++ b/system/modules/CNFParser.pm
@@ -39,6 +39,7 @@ our %ANONS;
                 my %instructs;
                 my $IS_IN_INCLUDE_MODE;
                 my $LOG_TRIM_SUB;
+                my $prc__last_pri = 6; #Process Last Processing Priority.
 ###
 # CNF Instruction tag covered reserved words.
 # You can't use any of these as your own possible instruction implementation, unless in lower case.
@@ -167,6 +168,7 @@ sub _isTrue{
     return ($value =~ /1|true|yes|on|t|da/i) ? 1:0
 }
 
+
 ###
 # Post parsing instructed special item objects. They have lower priority to Order of appearance and from CNFNodes.
 ##
@@ -179,9 +181,9 @@ package InstructedDataItem {
            if($val =~ s/$meta_has_priority/""/sexi){
                 $priority = 2
            }elsif($val =~ s/$meta_process_last/""/sexi){
-                $priority = 3
+                $priority = $prc__last_pri++
            }else{
-                $priority = 5;
+                $priority = 5
            }
            $val =~ s/$meta_priority/""/sexi;
            $priority = $2 if $2;