]> lifelog.hopto.org Git - PerlCNF.git/commitdiff
^@|%/ concidered collection.
authorWill Budic <redacted>
Wed, 12 Nov 2025 23:38:33 +0000 (10:38 +1100)
committerWill Budic <redacted>
Wed, 12 Nov 2025 23:38:33 +0000 (10:38 +1100)
system/modules/CNFParser.pm

index 87da2357824043de2c6b637ffdaf8d873764ee06..bb2b500acedca22d93c6be4b60acfe54edb1fdf2 100644 (file)
@@ -911,7 +911,7 @@ sub parse {  my ($self, $cnf_file, $content, $del_keys) = @_;
                     doInstruction($self,$e,$t,$v)
                 }
 
-            }elsif ($e eq '@'){#collection processing.
+            }elsif ($e =~ m/^@|%/){#collection processing?
                 my $isArray = $t=~ m/^@/;
                 my $IsConstant = ($v =~ s/$meta_const/""/sexi);
                 my @lst = ($isArray?split(DELIMITER(), $v):split('\n', $v));