X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FBadWords.pm;h=2336bb0468e22b1b95e3b517f5750c6397dd9fc2;hb=2b58ccdf81685a1167a43c38705a0d84b9d8d661;hp=ff9dd04c8b4e3b70a634828862420fcac1ccaa8a;hpb=06cf973726ecfc228d68bc82b63feb026d897a68;p=spider.git

diff --git a/perl/BadWords.pm b/perl/BadWords.pm
index ff9dd04c..2336bb04 100644
--- a/perl/BadWords.pm
+++ b/perl/BadWords.pm
@@ -19,6 +19,12 @@ use vars qw(%badwords $fn);
 $fn = "$main::data/badwords";
 %badwords = ();
 
+use vars qw($VERSION $BRANCH);
+$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ ) || 0;
+$main::build += $VERSION;
+$main::branch += $BRANCH;
+
 # load the badwords file
 sub load
 {