From 14a4911bb688bec45288aa0f206288932b4e53bf Mon Sep 17 00:00:00 2001 From: Will Budic Date: Thu, 23 Oct 2025 19:28:31 +1100 Subject: [PATCH] fix ver. checking. --- system/modules/CNFParser.pm | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/system/modules/CNFParser.pm b/system/modules/CNFParser.pm index da94a2f..fbb51dd 100644 --- a/system/modules/CNFParser.pm +++ b/system/modules/CNFParser.pm @@ -938,11 +938,14 @@ sub parse { my ($self, $cnf_file, $content, $del_keys) = @_; } } my @src_hdr_ver = ($content =~ m/^\!(CNF\s*((\d+\.*\d*)\.*\d*))/m); - if(@src_hdr_ver){ - $self->{CNF_VERSION} = $src_hdr_ver[0]; - $self->warn( - qq(CNF Script version is newer, are you using the script possible required parser version $src_hdr_ver[0]?)) - if(VERSION =~ m/^(\d+\.\d+)/ && $src_hdr_ver[2] > $1) + if(@src_hdr_ver){ + if(VERSION =~ m/^(\d+\.\d+)/ && $src_hdr_ver[2] > $1){ + $self->{CNF_VERSION} = $src_hdr_ver[0]; + $self->warn( + qq(CNF Script version is newer, are you using the script possible required parser version $src_hdr_ver[0]?)) + }else{ + $self->{CNF_VERSION} = VERSION; + } } my $spc = $content =~ /\n/ ? '(<{2,3}?)(<*.*?>*)(>{2,3})' : '\s*(<{2,3}?)(<*.*?>*?)(>{2,3})\s*$'; my @tags = ($content =~ m/$spc/gms); -- 2.34.1