r5866 - trunk/misc/tools

[DONOTREPLY at icculus.org]

Author: div0
Date: 2009-02-13 12:29:31 -0500 (Fri, 13 Feb 2009)
New Revision: 5866

Modified:
   trunk/misc/tools/shader-checksums.pl
Log:
support glitchy shader files in parsing


Modified: trunk/misc/tools/shader-checksums.pl
===================================================================
--- trunk/misc/tools/shader-checksums.pl	2009-02-13 16:37:17 UTC (rev 5865)
+++ trunk/misc/tools/shader-checksums.pl	2009-02-13 17:29:31 UTC (rev 5866)
@@ -34,15 +34,19 @@
 
 	$shadertext .= "@line\n";
 
+again:
 	if($line[0] eq '{')
 	{
-		die "{ line contains other stuff"
-			unless @line == 1;
 		die "{ line without shader name"
 			unless defined $curshader;
 		die "{ line in level $level"
 			if $level >= 2;
 		++$level;
+		if(@line > 1)
+		{
+			shift @line;
+			goto again;
+		}
 	}
 	elsif($line[0] eq '}')
 	{