SVN: vfmg/trunk/vfmg

[sparky]

Author: sparky
Date: Tue Dec  5 02:13:08 2006
New Revision: 8062

Modified:
   vfmg/trunk/vfmg
Log:
- restrict section name to [a-zA-Z0-9_-]


Modified: vfmg/trunk/vfmg
==============================================================================
--- vfmg/trunk/vfmg	(original)
+++ vfmg/trunk/vfmg	Tue Dec  5 02:13:08 2006
@@ -218,7 +218,7 @@
 	open F_IN, $rc or next;
 	my $sect = "global";
 	while (<F_IN>) {
-		if ( /^\[(.*?)\](\s*#.*)?$/ ) {
+		if ( /^\[([a-zA-Z0-9_-]*?)\](\s*#.*)?$/ ) {
 			$sect = $1;
 			$rcSect{$sect} = [] unless $sect eq "global";
 			next;