[nexuiz-commits] r6580 - trunk/data

[DONOTREPLY at icculus.org]

Author: div0
Date: 2009-04-23 15:47:00 -0400 (Thu, 23 Apr 2009)
New Revision: 6580

Modified:
   trunk/data/effectinfo-addcomments.pl
Log:
make the script support csqc better


Modified: trunk/data/effectinfo-addcomments.pl
===================================================================
--- trunk/data/effectinfo-addcomments.pl	2009-04-23 16:08:27 UTC (rev 6579)
+++ trunk/data/effectinfo-addcomments.pl	2009-04-23 19:47:00 UTC (rev 6580)
@@ -20,7 +20,8 @@
 		{
 			print STDERR "Handling $1...\n";
 			$found{$1} = 1;
-			my $search =
+			my $search = $1;
+			my $search2 =
 				$1 eq 'TR_BLOOD' ? 'MF_GIB' :
 				$1 eq 'TR_SLIGHTBLOOD' ? 'MF_ZOMGIB' :
 				$1 eq 'TR_WIZSPIKE' ? 'MF_TRACER' :
@@ -31,8 +32,9 @@
 				$1;
 			local $ENV{effectre} =
 				$search eq lc $search
-					? "\"$search\""
-					: "\"$search\"|\\<" . lc($search) . "\\>|\\<" . $search . "\\>";
+					? "\"$search\"|\"$search2\""
+					: "\"$search\"|\\<" . lc($search) . "\\>|\\<" . $search . "\\>|"
+					. "\"$search2\"|\\<" . lc($search2) . "\\>|\\<" . $search2 . "\\>";
 			print "$ENV{effectre}\n";
 			my $occurrences = `grep -E "\$effectre" qcsrc/server/*.qc qcsrc/client/*.qc`;
 			$occurrences =~ s/\r/\n/g;