From fa69bf5e307f21a49e58616c3eee97191be9d2cc Mon Sep 17 00:00:00 2001 From: Will Budic Date: Wed, 26 Mar 2025 13:55:07 +1100 Subject: [PATCH] Priority fix InstructedDataItems. --- system/modules/CNFParser.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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; -- 2.34.1