fix ver. checking.

diff --git a/system/modules/CNFParser.pm b/system/modules/CNFParser.pm
index da94a2fadaff320f83f5ecd6d8f4b1d32dad53a1..fbb51dd760ae226d7d9fda0364d49a2a042abc9c 100644 (file)
--- 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);